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RAE*S SUG-GESTIONS 

We have had little success in thinking of a clever title for the intro— 
ductory editorial material which appears in this position in each issue. 
It dawned on us, as we were assembling and editing the material for this 
issue, that we were serving as the Resident Assembler Editor (RAE) for 
the SYM USER’S GROUP (SUG); hence the above caption. Surely some reader 
can provide a better heading (but certainly never a worse pun!)? 


We seem to be following the, by now traditional, custom of user group 
newsletters in being late with each issue. We’1ll skip the apologies and 
excuses, to save space and time for all, and proceed to the facts: 


The emphasis in this issue is on printers and RAE-1. As you must know 
by now, cost/effectiveness is one of the most important factors 
affecting our buy/no-buy decisions. In every-day words, we want to 
spend as little as possible on the necessities (but can easily be 
persuaded ta pay much more for  Iluxuries!). We first determine our 
minimal requirements, then decide whether additional capabilities 
justify their added cost. 


Take printers, for example. Our minimal requirements are far a 
"good-looking", easily readable page (this implies lower case descenders 
to us). Alsa, we don’t try to hide the fact that our correspondence is 
prepared on a computer; after all, computers are our way-of-life. Thus, 
if a dot matrix printer meets our minimal requirements, it would not be 
worth an additional $1998 to us toa pay for so-called "typographic 
quality". We might pay $144, or $240, but $59@ more would take a lot 
more soul-searching! 


As of Summer ’81, we consider the Epson MX-88 to be the "best buy" in 
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Printers. We will be incorporating it in our OEM (SYM-based) word 
processing systems. IBM is following our lead in this instance, by also 
providing the MX-8@ (under their own label) as part of their newly 
announced (8486-based) personal computer system! According to the trade 
journals, the MX-8@ is now the "best-seller" among printers, selling 
like Apples! 


Here are some printing “samples” from our MX—-89: 
FONTS 


Compressed, Standard, Expanded-Compressed, Euan panded 
Compressed, tanda) Expanded-Compressed, En pRrenrdec 


MODES 
Normal, Double-Strike, Emphasized, Emphasized-Double 


The emphasized-double-strike mode compares very favorably with a con- 
ventional typewriter with cloth ribbon, but the printing rate is reduced 
from the normal 8@ cps to a mere 28 cps. All of the eight type fonts 
(the italics come only with GRAFTRAX-89) shown above can be printed in 
the normal and/or double-strike modes, but only the standard and 
expanded fonts can be printed in the two emphasized modes. 


LQaGK AT TAIS!Y 


The MX-8@ also has underlining capability, based on its ability to 
generate any desired inter-line spacing. One of our planned near-future 
tasks is to prepare a version of SWP which can take full advantage of 
this, and other features of the MX-&@. These include fully selectable 
horizontal and vertical tabbing. Text and graphics can be intermixed, 
as well. Look for demonstrations of this in future issues, aS we grow 
in our understanding of this marvelous new tool! 


RAE-1t is one of three features which make the SYM-1 an outstanding 
performer in any price class (the other two features are SUPERMON and 
the versatile 1/0 capabilities). In this issue are several support 
programs for RAE (including an Epson MX-8@ interface) and the 
announcement of several add-on programs, including a Cross Reference 
Lister and a Structured Programming Enhancement Package. These two 
add-ons, plus SWP-1, and Hissink’s Disassembler into RAE, make RAE-1 an 
even more versatile software package. 


And now, on with the NEWS geen enee 
ON PRINTERS 


Our first "printer" was a Teletype KSR-35 (the "heavy-duty" model of 
the KSR-33), working at a slow, noisy, oily-smelling, 118 baud, upper 
case only. This was replaced by a decwriter II (LA-36), when we were 
offered one at a price too low to refuse (still over %1990, though). 
We were thrilled by the lower case, and the 39% baud, which we almost 
immediately upped to 6@@ baud by a very simple modification. No 
“hand-shaking" required at this rate, either! 


The LA-36 is a truly remarkable, thoroughly reliable, piece of 
equipment, and has needed no maintenance, preventive or otherwise, in 
over two years. Our only troubles were self-induced, when twice we 
used cheap ribbons, the lint from which clogged one of the print wires 
so that it would not retract. The problem was easily solved with a few 
squirts of TV Contact Cleaner. 


We had only three objections to the LA-S6é. First was its lack of 
portability. It was a back-breaking task to get it loaded into the 
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trunk of our car (the lid wouldn’t close either) for a demonstration. 6ASZ— 24 86 BR GS4H INIT JSR ACCESS 


Second was the lack of descenders on the gs, j,; Ps Qs and y. The g was 6ABS-— AP 19 B358 LDA #L,PRINT 
the worst appearing of the letters, and one had ta look carefully toa S6AZS-— BD 64 AG BAGG STA OUTVEC 
distinguish between the g and the s in such words as sag, gag, gas, 6AB8- AI 6A GA7H LDA #H, PRINT 
gabs, etc. Third, like the 8" disk drives, its motor runs all of the SAGA- BD 65 AS BABA STA QUTVEC+1 
time it is powered-on, and we find the noise objectionable. 6ABD- AP AG BSI LDA #2191 9agga 
6ASF- BD BC AB B4RG STA PCR 3;Set for one-shot “hand- shake” 
As you can see, we now have a new printer. We chose the Epson MxX—-8@, 6A12-— AI 7F B4ig LDA #%7F 
which answers all three objections, at much less cost, and with far 6A14-— 8D @2 AB 429 STA PBDD 
greater versatility. We have the FT model, in case we ever wish to B43e 
feed single sheets of letterhead, or envelopes, and have added the B44 5 For non-disk systems 
GRAFTRAX-8@ EPROMS, 3 2716s, in place of the original 2332 ROM, to give G459 IFE DISKS 
us italics and high resolution bit graphics (to go with the MTU Visible 6A1L7— 63 BAGH RTS 
Memory). We are now on the parallel interface, but will switch to the 6A18- EA B47B NOP 
current loop, via the serial interface card, to free up the VIA for B4BG KKK 
ather purposes. G4IG 
GBIOA 5 For disk systems 
We are only just now learning to use some its features, most of which B518 EFE DISkS—1f 
are invoked with ESC sequences and CONTROL codes. RAE-1i users are 9528 CLE 
aware that RAE does not emit most of the CONTROL codes; instead, RAE D530 BRE 
prints them as “up-arrows" followed by the corresponding alpha (SWP-1 A344 e KK 
won’t print up-arrows, incidentally). Thus RAE’s output must be O55 3 “ : " P 
monitored for “up-arrows", and when one is encountered in the output ease seals 1: neaers Cea Se ieteers, “teens 
stream, if RAE is emiting it because it has encountered a control cade, BSBA ; them here. Just send "nulls" to your 
the actual control code itself must be sent to the printer. BSI 5 printer and the proper codes to 
BOA 5 your terminal. ou may wish a 
Also, the ESC sequences are not "visible" on the terminal and two very Bese ; ee tas fee aly 
important Epson sequences, ESC E and ESC G affect the KTM-2 by clearing BSI 
the screen and setting its graphics mode. The former is disconcerting, $646 ;NOTE 2: ESC sequences and CONTROL codes 
‘ : z E ‘ é M658 5 are kept from the terminal, 
since the number of the line which contains it is unseeable, but the Go4R ; but are "displayed" there 
latter may be nullified with an ESC g. It is therefore desirable to BOTH 3 with "$" and "*" prefixes. 
inhibit any ESC sequence from reaching the terminal, and substituting B68 5 - 
in its place a "token", such as, for example, the "$". The printer 6A19— C9 1B 698 PRINT CMP #¢1B 3ESC code 
patch published below "protects" the KTM-2 from all ESC sequences and 6ALB- DO #9 a7 2g) BNE TEST™ 
CONTROL codes, but "displays" them with "$" and “up-arrow"” prefixes for SAID- 24 4E 6A 9719 JSR WAIT 
editing. SA2H- AP 24 7 205 LDA #°% 
SA22- 24 AD BA G73H JSR TOUT 
GIG SLE PSON PARALLEL PRINTER PATCH 6A25- 4@ @7 48 RTS 
9620 -CPEISPLAYS CONTROL CORES a750 
9930; AND ESC SERMUENTESD 6A26- C9 SE a768 TEST* CMP #°* RAE “flags” CONT codes with ”*” 
2949 6AZ8- DH Fi S778 BNE NOT* 
BBABA »~BA $6A8G 3or wherever’ SAZ2A- BA G78 TSX 
8970 6A2B- BD BS BL w798 LDA $183, X 3RAE “stacks” control codes 
9989 PRD -DE sA899 6AZE- CF 2a s80a CMP #$20 
9698 PBDD -DE $Ag8g2 SASG- BS 17 818 BCS PRINT* ;Not @ control code 
B14H PCR -DE $A89C ABre PHA 
G119 4g G8SB LDA 3RAE will convert to null 
$128 ACCESS .DE $8B86 @3 81 #949 STA 
(2138 OUTVEC -DE A664 SE ase LDA 
‘G14 TOUT .DE $8AAd 24 AS BA aB6a ISR 
G158 68 8878 PLA 
6169 DISKS -DE @ 32> no dzsks, 2) = drsks 43 age PHA 
@176 ; ; ae 138 g8908 CLC 
Biog {NOTE Or Bets GrbUTS to che 7 Lees of the 67 40 900 ADC #$49 = ;Make it printable! 
G2HA 5 Epson. Since bit 7 of the A register 28 AG BA S918 JSR TOUT 
gate | ge ie aaa e8 2920 PLA 
go50 } Ha gied ise ciakenere? 4C 4E 6A 9930 IMP WAIT 
B258 5 THE MSB LINE OF THE EPSON MUST BE oe oe oe 
o2e0 ; TIED TO GROUND, SINCE IT IS NOT oe ee lie ey 
g270 : DRIVEN BY THE SYM. 20 G4 AB B96H WAIT RIT PRD 
B2B8 38 FR BI7TB BMI WAIT 
B2IB ; Bit 7.of the "8B" port is the "BUSY" 8D 96 Ag a9aG STa PRD 
eves 5 signal INPUT. : oo “99605 RTS 
GB326 5 CB2 is the "STROBE" signal OUTPUT. 1 aan ~EN 
BSB 5 
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EPSON-SYM WIRING LIST 


EPSON NAME EPSON PIN SYM PIN SYM NAME 


DATA 1 2 AA- L 2PBS 
DATA 2 3 AA- 9 2PB1 
DATA 3 4 AA- K 2PB2 
DATA 4 Ss AA- 8 2PBS 
DATA 3S 6 AA- J 2PB4 
DATA 6 7 AA- 7 2PBS 
DATA 7 8 AA- H 2PB6 
DATA 8 9 == == 
STROBE - AA- 3 2CB2 
BUSY 11 AA- 6 2PB7 
LOGIC GRND 16 AA- 1 GRND 


Remarks: Only 1 wires go between SYM and Epson. Tie DATA 8 to ground 
at Epson connector. All return lines (19 thru 39) are tied to ground at 
the Epson. 


ALTERNATIVE WIRING LIST 


You may wish to use the A Port instead, reserving the B Port for 
applications requiring its Darlington drive capability, or the special 
purpose functions available through PRS and FR7. We will be making this 
switch ourselves. We had planned to use the 2@ mA current loop for the 
printer, but instead will be converting that to inverted TTL (RS-232 
compatible) for use with a modem. Here is the PORT A Wiring List: 


EPSON NAME EPSON PIN SYM PIN SYM NAME 


DATA 1 2 AA- D 2PAS 
DATA 2 = AA- 3 2PA1 
DATA 3 4 AA- C 2PA2 
DATA 4 ra) AA-12 2PAS 
DATA 3S 6 AA- N 2PA4S 
DATA 6 7 AA-11 2PAS 
DATA 7 8 AA- M 2PAG 
DATA 8 — ek 
STROBE 1 AA- 4 2CA2 
BUSY 11 AA-19 2PA7 
LOGIC GRND 16 AA- 1 GRND 


A convenience feature you will wish to add (based on an idea of Jeff 
Holtzman’s) is an "IGNORE BUSY" switch. This will permit you to put the 
printer OFF LINE while you are entering data at the terminal which you 
do not wish printed. The switch will then permit terminal entry while 
the printer is switched off-line. The simplest method of implementing 
such a function is to switch in a pull-down resistor from the BUSY input 
to GRND. A suitable value is around ik. This will also permit a quick 
"preview" on the terminal before the final printing. 


EPSON MA-22 $ GRAF TRAX—22 
ESCAPE AND COUN TREE EGeReE S 


ESCAPE SEQUENCES 


ESC @ Set to 8 lines per inch 

ESC 1 Set to 7/72 inch per line ‘(approx 14 lpi) 

ESC 2 Set to 6 lines per inch (default) 

ESC 3 n Set to n/216 inch per line 

ESC 4 Set to italics 

ESC: 5 Set to roman (default) 

ESC 8 Disables paper out error (permits single-sheet loading) 
ESC 9 Enables paper out error (default) 
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aS BS Set TRS-88 mode (not used with SYM) 

ESC: .s Clear TRS-8@ mode (default) 

ESC > Set MSB (for TRS-8@ graphics from SYM) 

ESC = Clear MSE (default) 

ESE. 2 For redefining ESC codes 

ESC 2 Return to default settings, reset top-of-form 
Esc < Return print head to home (left) position 


n Set to n/72 inch per line : 
Set vertical tab positions (see manual for details) 

n Set ton lines eer page idefault 56) x 
Set horizontal tab positions (see manual for details) 


Set emphasized made 
Clear emphasized mode (default) 


Set double-strike mode 
Clear double-strike mode (default) 


sK,lL Used for bit graphics control 


Set compressed mode (same as CONT Q) 
Clear compressed mode (same as CONT R, default) 


Set expanded mode (same as CONT N) 
Clear expanded made (same as CONT T, default) 


"SPECIAL" CONTROL CODES 


CONT N Set expanded mode (same as ESC S) 
CONT T Clear expanded made (same as ESC T, default) 


CONT Q Set compressed mode (same as ESC P) 
CONT R Clear compressed mode (same as ESC Q, default) 
Q 


CONT Select printer (default) 
CONT S Deselect printer 


REMARES 
ESC G sets graphics mode on KTM-2; cancel with ESC g 


ESC E clears screen on KTM-23; no way to cancel! 
Except for CONT @, CONT S, eE&c sequences suffice for all purposes 


m 
oO 
0 
40 97 4 IM TM ONODD 


The TRS-8@ graphics set "replaces" the ASCII values from $A@ through 
$DF with the 64 "symbols" made up by blacking in all _ possible 
combinations of squares within a two (horizontal) by three (vertical) 
rectangle. When operating in the condensed character mode, the TRS—-8d 
graphics set provides 324 "pixels" across an 8 inch paper. Following 
are examples of the TRS-8@ graphics font: 


Standard Alphanumeric 

!"H#$7&° () ¥+,—. /G1 23456789: 3 <=>/9ABCDEFGHIJKLMNOPOGRSTUVWXYZO\I7_ 
Standard TRS-8@ Graphics 

Se De oe eS ee oe os eo 
eran Alphanumeric 
OSU’ () 84, ~, (8123456789: 5 <= >/ PABCDEFGHIIRLMNOPORSTUVIKTZE\3°_ 
Compressed TRS-88 Graphics 


LEE le Pak | TET ea eb iS 8S8 11 Mb eneebh el ssd dell 


Note that the "up arrow", "*", which is not printable with SWP-1, 
actually a pears above, together with its corresponding TRS-8@ graphics 
symbol. SWP-1 uses the "*"" as a "symbolic space" to signal the 
justification subroutine not to "adjust" the spaces so indicated. The 
"<“""is printed as a space (#20). We have frequently felt the need to 
econ the "“", as in the example. We therefore have modified our SWP 
Oo substitute a character for the "symbolic space" for which we can see 
absolutel no use whatsoever! This is the character whose ASCII code 
is $64. This shows up on the KTM-2 screen as a BA and on the 
Printer asa "little haok". It is entered on the ETM-2 by holding the 
SBe Te aney down while hitting the "return" key; this is no more 
complicated than entering the "*". 


INTER-SYM COMMUNICATIONS 
The fastest, and perhaps simplest, method of interchanging files between 
two closely adjacent SYMs is via the cassette interface. First connect 
their grounds together, then connect the "“left"-end of RIG on the 
“talking” SYM tc the "right"-end of R92 on the "listening" SYM. Then 
enter L2 <cr>, and S2 ID,SA,EA <cr> on the proper SYMs. 
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We made up an eight foot long flexible three-wire cable to enable us to 
interconnect any two of our SYMs. The three wires were once part of a 
25-wire flat ribbon cable, and microa-probe connectors are used to permit 
rapid changes. 


To speed up the interchange by a factor of more than 4X, try the 
following ‘Qnly HSBDRY need be changed at the receiver, and only the 
others at the sender): 


i) Change $A639 from $44 to $@1 to shorten the synch signal time from 
approximately 4 sec to approximately 1 sec. 


564 usec 


i] 


2) Change #A632 from $46 to $@C to shorten HSBDRY from 78 x 8 
to 12 x 8 = 96 usec. 


3) Change $A635 from $33 to $@8 to shorten TAPET! from Sl x 5S = 255 usec 
to 8 x 5 = 48 usec. 


4) Change #A63C from $5A to $@F to shorten TAPET2 from 98 x 3 


= 45@ usec 
to 15 x 5 = 75 usec. 
Since 255 + 45@ = 7@5 usec and 49 + 75 = 148 usec, the baudrate is 
increased from 1418 to 86976. Since the data is sent byte-for-byte, 


rather than nibbled into two ASCII bytes/data byte, the “effective” 
baudrate is > 17 KHz. According to scope measurements, there appears to 
be around 1 i/2 bits of "idle" time between bytes. Rounding this up to 
2 bits, we get a transfer rate of > 1784 bytes per second. 


We could not work at a 1@X rate, and did not try any rates between 6X 
and 1X. 


SYM TO AND FROM KIM AND AIM 65 

Since the SYM-1, KIM-1, and AIM-65 all have in common the KIM cassette 
format, interchange between these three aver the cassette interface is 
possible, but takes 21 times as long as the standard SYM cassette dump. 
All three also support the "DEMON" paper tape format, which is not 
necessarily implemented at 11@ baud over the TTY interface. It can also 
be used over the CRT interface at 4809 baud. 


To try it between SYMs, ground the two SYMs together, and connect 
USS-pin 2 of the transmitter to US38-pin 5S of the receiver, with a switch 
in the line so that the receiver echo can be turned off when desired. 
Enter LP <cr> on the receiver and SP SA,EA <cr> on the transmitter. 
Close the switch, and enter <cr> on the transmitter. After the 
transmission is complete, open the switch, and enter ;4@ at the receiver 
to exit the LP command. The switch is not required, but the echo from 
the receiver on the transmitter monitor may be confusing. 


You should easily find the the corresponding connectioon points on the 
KIM and AIM systems. We understand that a number of 689@ based systems 
also support the "DEMON" format. Note that the AIM-65 uses the X OFF 
character, also known as (aka, or alias) DC3, CONT S, or ASCII $13) to 
end the transmission. We were not able ta check out the ideas presented 
here with either the KIM or the AIM, but see no real problems in this 
area. We'd like to.» hear from any of you who succeed or fail in this 
intercommunication task. Incidentally, DCi (CONT @), DC2 (CONT R), and 
DC4 (CONT T), are aka X ON, TAPE ON, and TAPE OFF, respectively. 


Thanks to Steve Waldman, of Screen Sound Inc., of Burbank, CA, for many 
of the ideas in this section in particular, and many other ideas, in 
general. We spent a pleasant late evening together in his lab, working 
out many fascinating little problems. 
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MORE ON RECORDERS 

We purchased a Radio Shack Realistic CTR-8@ Cassette Recorder (this is 
the recorder recommended for use with the TRS-8@) nearly a year ago, but 
found it to be somewhat marginal in performance with the SYM-1. We 
found it necessary to approximately double the signal available at the 
Audia Out (LO) pin (A-M) by replacing the 47@ ohm resistor at R88 with a 
1 Kohm resistor. This improved the performance considerably, but a 
still better fix is described below! 


We probably also should have brought out the Audio Out (HI) signal at 
pin A-P and tried it in the AUX input of the CTR-84, to have been 
completely thorough in our test. The AUX input might be better for 
recording. We will ask at Radio Shack which input is recommended’ for 
use with the TRS-88/CTR-8@ combination. 


Most small recorders, however, da not have an AUX input, which isa 
“high level" input, for cassette to cassette, or radio to cassette, 
transfers; thus, only the Audia Gut (LO) should be used. Audio Out (HI) 
would require an external attenuator of some type. 


We read somewhere that Radio Shack would upgrade the CTR-8@ to the 
CTR-89A at NO CHARGE, to improve its performance as a computer I/0 
Peripheral (with the TRS-84, of course'). Thus, when an internal 
mechanical part came “unglued", and we had to have it repaired we asked 
for the free upgrading. The repair invoice noted that a 1@ uF capacitor 
and a "spike mod" had been installed. We don’t know the details of the 
upgrading, but the “spike mod" is the essential item to improve 
performance, We now find the CTR 86@"A" highly reliable, but the R88 
modification may still be necessary. 


A really nice feature of the CTR-8@ is that the FAST-F and REWIND 
controls operate even when the remote control inhibits the PLAY and 
PLAY/RECORD actions. The Tape Counter is a useful feature for those who 
use longer than the C-i#@ (54 foot, 5 minutes per side) tapes we have 
been using, with only a multiple dump of very few files on one cassette. 
The CTR-S8@A is not listed in the Radio Shack Catalog, but is listed in 
the TRS-8@ Computer Catalog as item 26-1296. 


We recently purchased a Realistic Minisette-9 for a portable system we 


are building. It works very well (i.e., reliably) and is so elegant in 
its compactness. While it is relatively expensive, if you need or want 
the small size, the price differential is reasonable. The Minisette-9 


is recommended by Radio Shack for use with the TRS-8@ Pocket Computer. 


One of our readers mentioned casually that his cassette recorder worked 
very reliably if it was not too near his video monitor. We had similar 
problems when using a SYM system on a card table with a metal rim. The 
metal “loop" antenna coupled the sweep frequency (approx 15.75 KHz) from 
the CRT yoke to the read head! The spikes showed up beautifully on a 
scope, together with the cassette signals we were monitoring, changing 
amplitude as we reoriented the monitor and/or recorder! 


Although it probably does not directly affect cassette performance, it 
is interesting to note that we can actually "“hear" the vertical 
scrolling of the terminal display through signals picked up by an 
unshielded cassette input lead, and passed through PB6 to our second DAC 
into a speaker. We must keep the volume control on DAC No. 2 turned 
down when not using the music system, partly for this reason, but mostly 
because otherwise we would be forced to listen to the busy buzz of tape 
loads. Some 6@ Hz hum also enters the audio system through this route. 


The moral here is that some cassette problems may be caused by the video 
monitor. This may be checked out by seeing if reliability is enhanced 
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FTM—2 MODIFICATIONS 
CAND RELATED TOPICS) 


We have been using Jack Gieryic*s JBP-4 KTM-2 Character Generator EPROM 
Burner program to replace the Character Generator 2216R ROMs in our own 
ETM-2 and EKTM-2/8%s with 2716 EPROMs. We particularly like the way the 
Program makes full use af the KITM’s cursor control capabilities, 
letting us use U, D, L, R, to "draw" the desired new character within 
an 8 by 8 rectangle indicated on the screen. 


We never quite found the time to analyze either Jack*s BASIC programs 
or the original ROMs to find out how the character generation is done 
by the ETM-2s. The following set of three short, but very elegant, 
notes by Dr. Gerhard Strube, not only describes the organization of the 
character generator ROMs, but describes in some detail the organization 
of the control ROM (in particular, for the KTM-2/84, but the KTM-2 ROM 
is essentially similar), and how to modify the keyboard encoding. 


Two such mads we would like in our own ETM keyboard encoder are: 
1) Interchange BREAK and TAB; why must we shift for BREAK? 
2) Let SHIFT/SPACEBAR also enter a space; wha needs the "pi"? 


Synertek*s 2316BR is equivalent to Intel’s 2316E. Both have three chip 
select pins, numbers 24, 18, and 21. The same numbered pins in the 
2716 EPROM are GE (low), CE (low), and Vpp (high). The low and high in 
parentheses refer to the canditions far READ. There are eight possible 
configurations for the set of three chip selection pins on the 23145E/B, 
only one of which is compatible with that of the 2714. The control ROM 
ef the ETM-2, (and incidentally, the Apple II ROMs) are, for some 
devious (?!) reason, not 2716-compatible, but this presents no abstacle 
to the determined researcher! A valtmeter or logic probe, on the 
hardware side, and a disassembler, on the software side, will reveal 
all secrets, and EPROMs are easily substituted. 


The Epson MX-8@ is delivered with its operating system and = character 
generator in a single 4K ROM (NEC’s D2332C); the microprocessor isa 
NEC 8849, Undoubtedly, users having access to an 8949 development 
system will disassemble the contents of the ROM and modify the 
character set ta match their own personal requirements. The Graftrax 
89, a set of three replacement 2714s, is sold only under the 
sub-license agreement that the contents are trade secrets of Epson, and 
that the purchaser "will not create or attempt to create, by reverse 
engineering, madification or otherwise, the source programs ar any part 
thereof from the Graftrax 88 object program." Thus only the original 
2232C ROM may be analyzed, and modified, and EPROMed, as Dr. Strube has 
done for the ETM-2/80, to meet ane’s needs. It certainly might be 
desirable to provide identical character sets, including the graphics 
symbols, in both the terminal and the printer. 


And now, here are the three notes, photocopied from his original 
manuscript. Note that his manuscript is right-justified, printed on a 
shaped-character printer, with all of the DIN standard characters. We 
wonder what printer he uses? 
Cus Fr OM i ZT NOG TRE KTM/2-+-80 
Dr. Gerhard Strube, Sckellstr.5, D-8000 Miinchen 80, Germany 
(I) Changing the character set 
SYNERTEK~s KTM/2-80 terminal board features a 1920 character 
display, 24 lines by 80 characters each. The characters - 


both ASCII and graphics - are represented by a “pixel” of 8 
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bytes (= 8 * 8 bits), each bit corresponding to a dot on the 
screen. Since a total of 256 different characters 
constitutes the KTM’s character font, 256 * 8 bytes, i.e. 
2 kbytes, are needed to store the pixel patterns. The KIM 
uses two identical 2 K-ROMs (type 2316-B) which are switched 
to give the high speed necessary for a CRT display. 


How are the pixel patterns coded? Page 0 of the ROMs 
comprises the top line of all the 256 patterns, page 1. the 
next line, etc., page 7 the bottom line of each. Bit 7 
corresponds to the leftmost dot, bit 0, accordingly, to the 
rightmost one. Therefore, the pattern code for any character 
is to be found at a fixed lo-byte address (determined by the 
ASCII code), while the hi-byte of its address varies from 
0 to 7. The lo-byte address is exactly the ASCII code of the 
character (0 to $7F ASCII, $80 to $FF graphics), read 
backwards! Graphic characters fill the 8-by-8 
matrix completely, while ASCII characters leave the left and 
right margins empty and usually the bottom row, too. 


Suppose you want to change the appearance of the tilde 
($ 7E) to ~B° (Greek beta, or German “sharp” s). You first 
invert the ASCII code, reading it from right to left, which 
gives (in that special case, only, the same code!) $ 7E. 
This is the lo-byte address. Next, you look up the codes for 
all pixel rows, top row first, at addresses $07E, $17E, ... 
$77E: 


00 00 00 32 4C€ 00 00 OO. 


Rows 4 and 5 are non-empty, resulting in the following 


pattern: 
row 4: oXX..X. 
row 5: Bp ire, See See the wave-form? 


Let us now devise the “B°: 


row 1: ste A Rare 96 = $ 38 at address $ O7E. 
row 2: iXaves Mec = $ 44 at address $ I7E. 
row 3: ner. Seana = $ 58 at address $ 27£. 
row 4: nia ® = $ 44 at address $ 37E 
row 5: rete) o = $ 42 at address $ 

row 6: MK. X< = $ 64 at address $ ae 
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row 7: esos sie = $ 58 at address $ 67E. 
$ 40 at address $ 77£. 


s 
° 
= 
ao 
. 
~< 
. 
. 
" 


These values have to be stored to obtain a beta instead of a 
tilde for a $7E. Since the KTM character ROMS are 
pin-compatible with standard 2716 EPROMs, any user with 
access to an EPROM programming device can alter the _ screen 
appearance of all the KTM characters. 


(II) Changing the keyboard encoder 


Another 2316-B ROM (Synertek § 02-0050A) contains’ program 
codes and the keyboard encoding table. Caution: pins 20 
and 21 (unlike 2716°s) are positive chip-select; you need 
have them at high level in order to read the ROM. Exchanging 
the ROM for a 2716 EPROM requires to change the jumper 
settings at J 18 and J 19. 


The KTM uses two input lines to check the status of the 
SHIFT and CONTROL keys, and an 8-by-8 matrix for checking 
the other keys. This lay-out requires 2 * 64 = 128 bytes of 
storage for decoding the keys in lower-case and upper-case 
mode. Not all of the 64 cross-points of the matrix are used 
(the KTM has 51 keys apart from SHIFT and CTRL). These 
crosspoints are decoded by a null code. The KTM control 
functions ALPHA and BREAK are identified by a dedicated bit 
(bit 7 = 1, = 0 for all other characters). Bits 6 to 0 
contain the ASCII code in rve vee ir s.eod order! For 
instance, the key ~8~ (ASCII $ 38) thus encodes to $ OE. 


The keyboard encoding table starts from address $ 723 up to 
$ 7A2. Standard KTM lay-out is (only lower-case is shown): 


U2 (6522) PA 0 ] 2 3 4 5 6 7 ROM addr. 


<eeeaswacsose cena [ooen-+-------------------------------------- 
U2 (6522) PB O / 8 7 6 5 4 3 2 1 $ 723-72A 
° PB 1 / TAB = $7E 0 9 $ 72B-732 
® PB 2 ia u y t r e w q ESC $ 733-73A 
m PB 3 / RET LF $7D p te) i $ 73B-742 
" PB 4 / d h g f a s a $ 743-74A 
= PB 5 / ALPHA DEL $7B $7C 1 k $ 74B-752 
° PB 6 / m n b v c x z $ 753-75A 
Ul (6522) PB 5 / SPACE / : > $ 75B-762 
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note: some characters I use for control (e.g., $5F) are 
replaced in the table with their respective ASCII hex codes. 


The information given should suffice to change the keyboard 
according to any desired lay-out. (E.g., my KTM now meets 
German standard DIN 2137 with A,6,U, 4,6,i, and B at their 
proper position.) 


(III) Attaching a numeric keyboard 


Provided you do a little soldering, you may attach any kind 
of extra keyboard to the KTM by hooking it onto the keyboard 
matrix lines shown above. You are free to either parallel an 
existing KTM key with a new one (e.g., the cipher keys 
0 to 9), or else use the hitherto free cross-points. I 
combined both these approaches when attaching a_ pocket 
calculator keyboard to ease the tedious keying-in numbers 
when inputting to SYM-Basic. The design uses the 8 PA-lines 
as well as PB O and 1, and §1 PB 5. Parallel keys are used 
for 0 to 9, for - and ., while unused cross-points now 
decode E (for entering floating-point numbers in’ scientific 
format), $ 5F (the SYM Basic cancel character), and Return 
on Ul / PB 5. (The keyboard cost half an hour of work and 
$ 2.- for a surplus calculator case.) 


Let me conclude by expressing the _ hope that these 
suggestions will provide KTM users with a terminal both 
cheap and unbeatably versatile. 


A RAE CROSS-REFERENCE LISTER 


Kin-ping KEKwek sent us three RAE-1 enhancements for review, with 
permission to publish two of them freely, and asking for comments on the 
third. The first two programs provide alphabetic and numeric sorts of 
the RAE-1 label file after assembly. While we ourselves have little 
need for the numeric sort, we publish it here for a specific reason, ta 
be revealed below. Kwok’s alphabetic sort is much faster, in general, 
than the earlier published alphabetic sort by Cyr, but the Cyr sort is 
faster if the labels are in close to the proper order. 


We compared Cyr vs. Kwok on an extremely long label file. We used the 
label file for Brown’s new Extended Disk Basic; we don’t know how many 


labels it has, but it is some $1568 bytes long! Kwok’s numerical sort 
was used first, to ensure a common starting sequence for the two 
alphabetic sorts. We also wanted to be able to "break up" any starting 


alphabetization to some extent; otherwise the "bubble sart" would have 
an unfair advantage. Kwok is considerably faster, but when applied 
twice in a row, both trials take the same length of time; the second 
pass of Cyr is nearly instantaneous, because of the already established 
sequence. 
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If you look at the label files following the assembly listings below, 
you will see why Mr. Kwok’s third program really thrilled us. We must 
admit that RAE*s normal label file looks pretty sloppy. Kwok’s 
alphabetized cross-referenced label file adds a real touch of class toa 
RAE listing, and it will really be helpful in analyzing a DISARAEd 
listing. Note that macro names and labels (those with ee and... 
prefixes) do not appear in the listings, and that the macro "dummy" 
variables’ "defining" line numbers do not include the # prefix (e. g-s 
ADDRS, FROM, TO). 


Mr. Kwok’s preliminary version was somewhat awkward to use; it required 
a preliminary alphabetic sort, and some fancy manipulations if the 
source file was segmented, i. e., if it required one or more .CTs. The 
"final" version includes the initial sort, and has simplified the .CT 


problems. We have not fully tested the .CT workings on large source 
Programs. To speed up the testing we will first modify the program toa 
permit .CT (Disk Filename). One problem we forsee is the possible 


necessity of dumping partial label files to disk or cassette, with .CTs 
themselves, since the Cross-Reference files replace the source code 
files as they are generated, and running out of space is a real 
possibility. 


As soon as this issue goes to press we will give this program highest 
priority, because of its obvious utility value. We will distribute a 


combined cassette/disk version using conditionals to permit user 
selection at assembly time. See shopping list for details. Now here 
are the two sort programs, with cross referenced label files: 

DAD 3;SORT LABELS IN ALPHANUMERICAL ORDER 

BB2H 5COPYRIGHT JULY,1981 BY Kin-ping Kwok 

GB3B : ALL RIGHTS RESERVED 

BBAD -BA $9999 

BBSB -OS 

9B6B STST -DE $194 

479 LBLPTR -DE $92 

9989 CURPTR »-DE $94 

9698 USERPTR -DE $96 

2186 TEMP -DE #135 

G11 !'! 'MOVE -MD (FROM TO) 

G12 IFP FROM-$199 

G13G LDA FROM 

G1i4e aK 

@159 IFM FROM-$199 

G16 LDA *FROM 

B17 aK 

9188 STA «TO 

B1ID IFP FROM-$FF 

B2BB LDA FROM+1 

9219 XK 

G229 IFM FROM-$FF 

G23G LDA *FROM+1 

B24D KK 

B25G STA *TO+1 

G268 » ME 

9278 !!!NEXT -MD ‘ADDRS) 

9289 ...NEXT1 INY 

B298 LDA (ADDRS),Y 

D3BD BPL ...NEXT1 

B31G SEC 

G32B TYA 

G339 ADC *ADDRS 

B34B STA *ADDRS 

G35G BCC ...NEXT2 

B36G INC *ADDRS+1 


G37G ...NEXT2 «ME 
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35 


G1 


G1 


SORT 


SEND 
NEXTLBL 


NEXTLBL1 


COMPARE 
COMPARE 1 


NEXTCUR 


COMPARE2 


COMPARES 


INSERT 
SAVE 


INS1 


INS2 


INS3S 


MOVE (STST LBLPTR) 
LDY #2 

LDA (LBLPTR),Y 
BNE NEXTLBL 

RTS 

LDY #1 

NEXT (LBLPTR) 

LDY #2 

LDA (LBLPTR),Y 
BE@ SEND 

MOVE (STST CURPTR) 
LDY #1 


LDA (CURPTR),Y 
BMI COMPARE2 
LDA (LBLPTR),Y 
BMI COMPARES 
CMP (CURPTR),Y 
BCC INSERT 

BE@ COMPARE1 
NEXT (CURPTR) 
LDA *xCURPTR 
CMP *LBLPTR 
BNE COMPARE 
LDA *CURPTR+1 
CMP *LBLPTR+1 
BNE COMPARE 
BEQ@ NEXTLBL 
LDA (LBLPTR),Y 
ORA #989 

-BY $2C 

AND #$7F 

CMP (CURPTR),Y 
BCC INSERT 

BNE NEXTCUR+1 
ASL A 

BCS NEXTCUR+1 
LDY #$FF 

INY 

LDA (LBLPTR),Y 
STA TEMP,Y 

BPL SAVE 

CPY #2 

BCC SAVE 

LDX #6 

MOVE (LBLPTR USERPTR) 
INY 

LDA *USERPTR 
BNE INS2 

DEC *USERPTR+1 
DEC *xUSERPTR 
LDA (USERPTR, X) 
STA (USERPTR),Y 
LDA *USERPTR 
CMP *CURPTR 
BNE INS1 

LDA xUSERPTR+1 
CMP *CURPTR+1 
BNE INS1i 


LDA TEMP, Y 
STA (USERPTR),Y 
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9GAA- 19 FB 1938 
96AC— 8A 1949 
9GAD- 4C 1A 96 198568 

1869 


LABEL FILE: CC / = EXTERNAL J 


SYMBOL. ; VALUE 
/CURPTR 7 $9994 #GGAGS 
; G62G 
/LBLPTR 3 $8992 #9070 
; GD 
/STST 39194 #DBOS 
/ TEMP 339135 #9198 
/USERPTR 3 $8996 #9098 
; BIBG 
ADDRS 3 $2094 @27G 
COMPARE 3 $9932 #9498 
COMPAREL  ;%9934 #O5GG 
COMPARE2 3; $9969 #BO6D 
COMPARES 5 $9@65 #9698 
FROM ©} $9BI2 G119 
; G28G 
INS1 3 $9989 #9358 
INS2 3 $9@8F #9889 
INSS 3$99A4 #1999 
INSERT 3 $9978 #9758 
NEXTCUR 339943 #0589 
NEXTLBL 3S9G14 #9436 
NEXTLBL1 3%9922 #9459 
SAVE 339072 #0768 
SEND 3 $9918 #G42G 
SORT 39900 #9380 
To 5 $BBIS @11G 
OG1G 
BB2D 
PBB 
GG45 
9958 
BG6G STST 


$979 LBLPTR 
$988 CURPTR 
9B9SB USERPTR 
G19 !!'MOVE 


268 !!!NEXT 
279 ...NEXT1 


wm 


BPL INSS 

TXA 

JMP NEXTLBL+9 
-EN 


# = LINE DEFINED 


CROSS-REFERENCES 


G48S B51 BS5B B58B BSID 
B7BD GI2ZGB GIB 

B38a B49B B44G D460 @530 
BO3B GBO6G 9779 G83G 

B38B 9489 

B78 199BG 

BBS 3859 87H B88h B89G 
BID BI4AGD 1G1G 

B29B BS3B B34G B360 

B61G GAG 

@57B 

B52G 

9548 

G12 BiG G1SG Gi6G G1ID 
G22 B23B 

BISGB BIG 

8869 

1939 

B569 B71B 

B72D B74AG 

BALD B659 1958 

KEKK 

B79B 9818 

B4A7GB 

KKK 

$199 B25G 


;SORT LABELS IN NUMERICAL ORDER 
3;COPYRIGHT JULY,1981 BY Kin-ping Kwok 
3 ALL RIGHTS RESERVED 

-BA $9200 


»-MD (FROM TO) 
IFP FROM-$199 
LDA FROM 


IFM FROM-$199 
LDA *FROM 


STA *TO 
IFP FROM-$FF 
LDA FROM+1 


IFM FROM-$FF 
LDA *FROM+1 


STA *TO+1 
-MD (ADDRS) 


LDA (ADDRS),Y 
BPL ...NEXT1 
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AS 
Bi 
DS 
6a 
AS 


Ax 
Bi 
FS 


AS 
Bi 
D1 
99 
De 
A2 
Al 
ci 
9% 
DS 
cs 
Bi 
38 
Bi 
3a 
D1 
98 
Fo 


AS 
cs 
DS 
AS 
cs 
Da 
Fo 
Bl 
g9 
2C 
29 
Di 
99 
DS 
BA 
BS 
AG 
cs 
Bl 
aa 
19 
ce 
99 
A2 


cs 
AS 
Dg 


96 


«»»NEXT2 
SORT 


SEND 
NEXTLBL 


NEXTLBL1 


COMPARE 


COMPARE 1 


NEXTCUR 


COMPARE2 


COMPARES 


INSERT 
SAVE 


INS1 


SEC 
TYA 
ADC 
STA 
BCC 
INC 
»ME 


xADDRS 
XxADDRS 
+ «sNEXT2 
*xADDRS+1 


MOVE (STST LBLPTR) 


NEXT 


LDY 
LDA 
BEQ 


MOVE 


LDY 
LDA 
CMP 


#2 
(LBLPTR) ,Y 
NEXTLBL 


#1 

(LBLPTR) 
#2 
(LBLPTR) ,Y 
SEND 

(STST CURPTR) 
#1 
{LBLPTR),Y 
(CURPTR) ,Y 
INSERT 
NEXTCUR 
#D 
(LBLPTR, X) 
(CURPTR, X) 
INSERT 
NEXTCUR 


(CURPTR) ,Y 
COMPARE2 
(LBLPTR),Y 
COMPARES 
(CURPTR) ,Y 
INSERT 
COMPARE1 


NEXT (CURPTR) 


LDA 


LDX 


*xCURPTR 
XLBLPTR 
COMPARE 
ACURPTR+1 
ALBLPTR+1 
COMPARE 
NEXTLBL 
(LBLPTR) ,Y 
#589 

$2C 

#O7F 
(CURPTR) ,Y 
INSERT 
NEXTCUR+1 


a 
NEXTCUR+1 
#%FF 


(LBLPTR),Y 
TEMP, Y 


#D 


MOVE (LBLPTR USERPTR) 


INY 
LDA 
BNE 


xUSERPTR 
INS2 


SYM-FHYSIS 9316 


FORE iGS 7 BISB DEC *USERPTR+1 
97GA1-— C& 96 $968 INS2 DEC *XUSERPTR 
9GAS— Al 96 BIT LDA (USERPTR, X) 
9GAS-— 91 96 9989 STA (USERPTR),Y 
9BA7T— AS 96 GIID LDA *USERPTR 
9BA9- CS 94 19HH CMP *xCURPTR 
99AB-— D@ EE 1G1G BNE INS1i 
9GAD— AS 97 1928 LDA *USERPTR+1 
99AF- CS 95 1G3B CMP *CURPTR+1 
99B1i- D@ ES 1949 BNE INS1 
9GB3-— 88 1958 DEY 
9BB4-— 98 1969 TYA 
99B5-— AA 1978 TAX 
99B6- BY C2 96 1988 INSS LDA TEMP,Y 
9GBI- 91 96 1890 STA (USERPTR),Y 
96BB- 88 1198 DEY 
9@BC- 18 F8 1119 BPL INSS 
99BE-— 8A 1129 TXA 
9OBF-— 4C 1A 9B 11398 JMP NEXTLBL+9 
99C2- 1149 TEMP -DS 28 

1159 -EN 


LABEL FILE: [C / = EXTERNAL 1 # = LINE DEFINED 


SYMBOL ; VALUE CROSS-REFERENCES 

/CURPTR 7 $0994 #2986 B47B a5aa #558 S598 GO3G 
3 G46G G67G 72D 9786 1999 193G 

/LBLPTR 3 $092 #OB7O @37G B39G 438 456 G49B 
; 2549 619 $689 G716 B74G 859 
; aI1a 

/STST 3 $0194 #DGEG G37G B47G 

/USERPTR 3 $8996 #ODIG BIG BISB @958 DI6B @97G 
; G98G BIG 1926 1996 

ADDRS 3 $8094 B26G @28G @32G @33G @35@ 

COMPARE 3 $9932 #B48G B69B @72G 

COMPAREL 3%9846 #958o G65e 

COMPARE2 3; %9972 #974G GGG 

COMPARES 3;%9877 #977G Bb2G 

FROM 3 $9992 19GB G11G Bi2G G14G G15G 189 
; G19G @219 #228 

INS1 3$999B #BI3ZG 1G19 194g 

INS2 ;$9GAL #BPOD DIAG 

INSS 3 $9GBS #1989 1119 

INSERT 3 $9982 #BB3B @519 G56B G64G 8799 

NEXTCUR 3$9955 #B66G 529 $579 89D 826 

NEXTLBL ;$9H11 #9420 D4BG B73G 1136 

NEXTLBL1 ;%9922 #B44G KKK 

SAVE 3 $9984 #9849 87GB G898 

SEND 3$9G19 #9419 G46G 

SORT 3 $989G #9379 KK 

TEMP 3$9GC2 #1149 BB4G 1989 

To 3 $BBVPS BiG B17B B24B 


How do you like the CROSS-REFERENCED Label Files? 


Note that the listings above doa not include the macro expansions, 
because of the paper waste in listings with .ES. We also did not pro- 
vide hex dumps, which would, of course, have included the bytes missing 
from the source code listings, because every user of these programs must 
have RAE-1 to use them, and every user of RAE-1 will key in the source 
codes rather than the object codes, anyway. 


Incidentally, the sorting algorithm used by Mr. Kwok in these two pro— 
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grams is known as the “insertion” sort. We have heard of it, certainly, 
but have never used it before this. It is definitely faster than the 
usual "“bubble"-sort, unless the data to be sorted has (have?) only a 
very few out-of-place items. 


NUMBERING RAE FILES 

The use of the RAE NUmber command is not well covered in the Reference 
Manual. The following example shows how to set both the starting number 
and interval easily. Suppose you have a source code consisting of 
several sections, each ending with a .CT, except the last, and you wish 
the numbers to continue in sequence from one section to the next. This 
is particularly important in using CROSS REFERENCE, where a single Cross 
Reference Listing is prepared to cover all sections. 


Assume that the starting number of the first section is $9995, the 
interval is 5, and the ending number is 1755. You would like the second 
section to begin with 1769, with interval 5, etc. Use the NU command 
twice, as follows: NU @ 1755 <cr>, NU 1755 5 <cr>. Disregard any error 
message (!19, indicating line number overflow) after the first use of 
NU. The second section is then numbered as specified. 


A NEAT RAE TRICK 

The following letter from James Duckworth presents a very neat idea we 
wish we had thought of..... Our excuse for not having thought of it 
first is that we call all of our supporting programs, such as SWP, PON 
(printer on), etc., from RAE with the DC command, as “overlays” in the 
FODS utility program area. This means we have been wasting time waiting 
for the disk load. We shall be rewriting many of our RAE enhancement 
packages, including our new XREF, to use Jim’s trick. 


Jim did not send his letter on cassette, but rather on a thermal 
printout paper, and we reproduce it as a photocopy of a Xerox copy of 
his original letter. The printer, whose name we cannot recall at the 
moment, provides excellent hard copy by "burning" away a silvery 
appearing coating to reveal a black undercoating. We like the lower 
case descenders, and the paper Xeroxes reasonably well. 


We seriously considered this printer, especially because of its low 
cost. We decided against it because our main "product" is the 
newsletter, and any “rough” handling of the printouts in the process of 
cutting and pasting the camera-ready copy would introduce black 
appearing scratch marks on the copy. If we had a plain paper copier 
this would have solved the problem, as we could then have cut and pasted 
copies. As of this writing, however, the Epson MX-88 is very little 
more expensive than the thermal printer, but far more versatile. 


JAMES J. DUCKWORTH 
S OSAGE AVENUE, ROCKAWAY, N. J. 
87866 
(201) 625-4413 
September 17, 1981 


Dear Lux, 


This is just a quick note to let other SWP-1 users in ona 
little trick I discovered, because I got tired of typing “RU $3880", 


to invoke the SWP program. The first method, which works pretty 
well, is to put at $8803 through $0886 the code “4C 0@ 38", and then 
call SWP with a_ simple "US", followed by a carriage return. This 


method is a quite obvious use of RAE’ s USER command, which transfers 
contro! through a vector in ZERO page memory, to a users program. 
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A 
called 
calling 


not so obvious way to call SWP is to create a dummy label, 


“SWP" of course. It is dane in the following way. After 
RAE, but at sometime before SWP is needed, type in the 
following; 


iSWP .DE $3868 cr 
AS cr 


After the error message, type in; 


DE 1 cr 


RAE has now forgotten all about !ine 1, but a label exists in the 
LABEL file named “SWP" with an address of $3808. Now a call to RUN 
SWP does exactly that. The !abel and its address remain thera in 
mamory yntil over-written or the power is shut off. Now this is what 
I cal! a neat trick. It is so much easier to remember “SWP* than 
some hexadecimal address. 


Jim Duckworth 


MULTI-PURPGSE RAE PATCH 


The following program was intended to be a very simple patch to RAE to 


permit only one added feature: 


increasing the length of the SYNCH 


interval for PUt, for the benefit of those readers who were having 
troubles reading their RAE files because of sluggish recorder time— 


constants. 


Since this involved using PUt, we decided to include the .CT 


patch, which involves GEt. The program began growing in an uncontrolled 
fashion when we began adding explanations of how ENter and LOad 
influence PUt and GEt. As long as we had gone this far, we added some 
additional features, taking care of ALL the vectors and jumps. We could 
have added even more, but decided to leave the rest to you. 


GB1D 
BOB2B 
GD3B 
GB4D 
9958 
BBb5 
8879 
BIBS 
999G 
B19GB 
G11 
8126 
GIS 
9148 
91 
G169 
G17 
9188 
9198 
B29 
9219 
9229 
8239 
G24 
B25 
9269 
927 
9288 
B298 
B39DB 
9319 
9329 
O33 
B34 
9358 
B34B 
D378 
B38S 


on we es we we we 


a, 


A MULTI-PURPOSE RAE-1 PATCH 
18-AUG-681 /LUX 


RAE-1 “ordinarily” uses only from $B6 thru %£A 
and SEE and SEF on page zero. $B6 is initialized to 
66 (RTS), and $EE and $EF are initialized to 669. 


If >HA S is given as a command, all output is vec— 
tored through $B6. Thus $B6 can be used to vector 
to your printer patch, if desired. >HA C disables 
the vectoring. 


GEt and PUt examine the “flags” at SEE and $EF; if 
these are zero the “normal” cassette I/0 is sup- 
ported. If these flags are non-zero, GEt and PUt are 
vectored through $F6/$F7 and $F4/$F5 respectively. 


Three “undocumented” commands, >LO (for LOad, or LOok— 
up), DEN (for ENter), and >DC (for Disk Command) are 
available for linking to disk operating systems (DOS), 
e.g-, FODS or CODOS. When not required for disk 1/0 
these commands may be used for other purposes, as 
shown by the following example. 


Not shown in the example, however is the method by 
which these (and all RAE commands, for that matter) 
Pass their parameters. At entry to the vectors the 
Y register contains the hex value of the position 
within RAE’s CRT Buffer of the first non-space 
character following the command, e.g., ENTER. 


If Y=$59, no parameters were passed. Otherwise the 
parameters may be “picked-up" and interpreted be- 
gining at $9135,Y. Hence, for example, you may 
add as many “new" commands as you wish to RAE by 
calling >DC PRINTERON, >DC PRINTEROFF, >DC SWP, 
>DC SORT, >DC CROSSREF, etc. 
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3 USR may also be used with parameter passing, but not 
3 


GETPATCH ENABLES .CT (CONTINUE ON TAPE), BUT 
DISABLES THE ABILITY TO SPECIFY AN ID FOR “GET” 
LINKED BY CALLING LOad X (xX = ANY ALPHANUMERIC) 
UNLINKED BY CALLING LOad, WITH NO PARAMETER 


wo we we we 


PUTPATCH INCREASES SYNCH DURATION FOR “PUT” 
LINKED BY CALLING ENter X (X = ANY ALPHANUMERIC) 
UNLINKED BY CALLING ENter, WITH NO PARAMETER 


CALLING LOad AND/OR ENter WITH A PARAMETER SETS 
INP.FLG AND/OR OUT.FLG TO $91. 

THEREAFTER ALL GEts AND/OR PUts ARE VECTORED 
THROUGH GET.VEC AND/OR PUT. VEC. 


WHEN CALLED WITHOUT A PARAMETER THEY SET 
THE FLAGS TO $66. THIS FEATURE IS 

BUILT INTO LOad AND ENter TO OPEN AND 

CLOSE NAMED DISK FILES AUTOMATICALLY. 

GEts and PUts THEN MANIPULATE ONLY SUBFILES. 


THIS PATCH ALSO MODIFIES THE DEFAULT VALUES 
TO BETTER SUIT A 16K TO 32K SYSTEM. THE PATCH 
OCCUPIES $96-$A6. IN A LARGE SYSTEM IT COULD 
BE PLACED IN HIGH MEMORY OR IN ROM. 


RAEPATCH -DE $9396 
-BA RAEPATCH 


-OS 
“~Y.JMP -DE $60 
USR. JMP -DE $63 


PRNT. IMP -DE $B6 
RELOCBUF -DE $C8 


INP.FLG -DE SEE 3RAE TAPE/DISK INPUT FLAG 
LOD. VEC -DE $F2 3RAE DISK LOD VECTOR 

SET. VEC -DE $F6 3RAE DISK GET VECTOR 

OUT.FLG «DE $EF 3RAE TAPE/DISK OUTPUT FLAG 
ENT. VEC -DE $Fo 3RAY DISK ENT VECTOR 

PUT. VEC -DE $F4 ;RAE DISK PUT VECTOR 

DC. VEC -DE S&C ;RAE DISK COMMAND (DC) VECTOR 


i SUPERMON ADDRESSES 


SAVER -DE $8188 
BEEP -DE $8972 


3 RAE ADDRESSES 
TXST -DE $6199 


FILE.NO -DE $8118 
RAEWARM -DE $BSAC 


RAEHOT .DE $B95E 
CLEAR_ALL .DE %E6g2 
U/LOAD1 -DE $EF68 


TRANSFER -DE SEFC4 
TAP. NEW -DE SEFA4 


3 SET ALL VECTORS AND JUMPS 
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G2 
BB 


BD 
@1 


BO 


bah) 


E6é 


BS 


FD 


1949 SET.VECS 


1959 
1966 
1978 
1989 
1999 
1198 


1678 VALUES 


SET.JMPS 


LDX 
LDA 
STA 
INX 
CPX 
BCC 
LDA 
STA 
LDA 
STA 
LDX 
JSR 


JMP 


- BY 


#L,GETPATCH 
xGET.VEC 
#H, GETPATCH 
*GET.VEC+1 


#L,PUTPATCH 
*PUT.VEC 
#H, PUTPATCH 
*PUT.VEC+1 


#L,LODPATCH 
*LOD. VEC 
#H, LODPATCH 
sLOD.VEC+1 


#L,ENTPATCH 
*ENT. VEC 
#H, ENTPATCH 
xXENT. VEC+1 


#L,DC.PATCH 
*DC. VEC 

#H, DC. PATCH 
«DC. VEC+1 


#S4C 

*-Y. IMP 
xUSR.JMP 
XxPRNT . IMP 


#L,*Y.PATCH 
4°Y. IMP+1 
#H, “Y. PATCH 
a“Y. IMP+2 


#L,USR.PATCH 
#USR. JMP+1 
#H, USR. PATCH 
xUSR. JMP+2 


#L,PRNT.PATCH 
sPRNT.JUMP+1 
#H, PRNT. PATCH 
*PRNT.JIMP+2 


THIS IS A GOOD TIME TO CHANGE THE DEFAULTS 
TO VALUES BETTER SUITED TO A 16K SYSTEM 


#990 
VALUES, X 
TXST, X 


#398 

PARMS 
VALUES+8 
*#RELOCBUF 
VALUES+9 
*RELOCBUF +1 
#SDD 
CLEAR_ALL 


RAEWARM 


$B $O2 $FD $3F $9G 


SYM=KHYSTS 2 


aa 


9B72- 
875-— 


9977- 
@B79- 
997C- 4C 


9O7F— 
9982- 
9984— 
9987— 
9989-— 


968C— 


998D-— 


998E- 


999 1- 
2994- 


9B97— 


BBIA- 
B9D— 


LABEL FILE: 


SYMBOL 
/BEEP 
/CLEAR_ALL 
/DC. VEC 
/ENT. VEC 
/FILE.NO 
/GET. VEC 
/INP.FLG 
/LOD. VEC 
/OUT.FLG 
/PRNT. IMP 
/PUT. VEC 
/RAEHOT 
/RAEPATCH 
/RAEWARM 
/RELOCBUF 
/SAVER 
/TAP.NEW 
/ TRANSFER 
/TXST 
./U/LOAD1 
/USR. JMP 
/*Y. SMP 
DC.PATCH 
ENTPATCH 
GETPATCH 


SF 1689 -BY $20 $FD $3F $FO $3F 
1699 
179D ; HERE ARE THE PATCHES 
1719 
1729 GETPATCH LDA #$99 

@1 1738 STA FILE.NO 

EF 1749 JMP U/LOAD1 
1758 

81 1768 PUTPATCH JSR SAVER 
1779 LDA #$99 

EF 1789 JSR TRANSFER 
1799 LDA #$94 3;REPLACE THE BUILT-IN $@1 

EF 1899 JMP TAP.NEW+2 
1819 
1829 LODPATCH RTS 
1839 
1849 ENTPATCH RTS 
1859 
1869 ; REPLACE THE CALLS TO “BEEP” BELOW WITH YOUR 
1879 ; DESIRED SUBROUTINES. NOTE HOW "JSR" AND "JMP" 
1889 ; ARE USED BELOW TO PROVIDE CORRECT RETURNS TO RAE. 
1899 

89 1998 DC.PATCH JMP BEEP 3;WHY NOT? 

1919 

89 1926 “Y.PATCH JSR BEEP 3;WHY NOT? 

BS 1936 JMP RAEHOT 3;O0R RAYWARM, IF YOU PREFER 
1946 

89 1958 PRNT.PATCH JMP BEEP ;WHY NOT? 

1960 

89 197 USR.PATCH JSR BEEP 3WHY NOT? 

BS 1980 JMP RAEHOT 3;0R RAYWARM, IF YOU PREFER 
1999 ; TO USE RAE MULTIPATCH, ENTER RAE AT COLDSTART, 
2888 ; EXIT WITH CONT C, PATCH (AND RE-ENTER WITH .G 6 <cr> 
2G1G ~EN 

/ = EXTERNAL # = LINE DEFINED 

3; VALUE CROSS-REFERENCES 

3$8972 #9899 1989 1929 1958 1976 

3 SE692 #B97D 1639 

3 $99EC #9848 1258 1279 

5 SODFS #9819 1299 1229 

3$O118 #DIAD 1738 

3 SODF6 #9789 1959 1979 

5 $SO9EE #9769 EER 

3 $O9F2 #9779 1159 1179 

5 SOGEF #DEGS . SS 8 | 

3 $9GB6 #9739 1326 1459 1478 

3 $9GF4 #9329 1199 1129 

3 SBOSE #B96G 1936 1988 

3 $ODD6 #2567B 8689 

3 $BGAC #B95D 1659 

3$99C8 #D74D 1599 1618 

3 $8188 #9889 1769 

3 SEFA4 #1999 1890 

3 SEFC4 #BIID 1789 

3 $9198 #BISO 154@ 

3 SEF 68 #9989 1749 

3 $9903 #9726 1319 1496 1429 

3 $DDDD #B719 1399 1359 1379 

3 $@98E #1999 1249 1266 

3 $998D #1849 1199 1219 

3 $9B77 #1729 1849 1968 SYM-FHYSIS 
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LODPATCH 3 $998C #1829 1149 1169 


PARMS 3 $8958 #1539 1579 

PRNT.PATCH ; $9997 #1959 1449 1469 
PUTPATCH 3$O97F #1769 1999 1119 

SET. JMPS 3 $@92E #1299 XEKk 

SET. VECS 3 $99B6 #1946 bo 3 3 

USR.PATCH ;%889A #1979 1396 1416 

VALUES 3 $B96D #1672 1539 1589 1698 
“Y.PATCH 3 $9991 #1929 1349 1369 


AN IMPROVED PRINTER PATCH 

We moved our MX-89 printer from the B port to the A port to free PB6 and 
PB7 for counter/timer applications. We also modified our method of 
setting PCR to do so without affecting CBI and CB2 when activating the 
printer patch, so that these lines could be used for other purposes. 


NOTE THAT THE A AND B PORTS HANDLE HANDSHAKING DIFFERENTLY; FAILURE TO 
ALLOW FOR THIS WILL CAUSE SYSTEM HANGUP! CB2 pulses low only after a 
write operation to PBD, while CA2 pulses low after either a write to or 
a read from PAD. The BIT test for BUSY must therefore be made at the 
no-handshake PAD register at $XX9F. 


The original patch was designed to work with RAE-1, and would not handle 
the “up-arrow" of BAS-1 properly. The byte at #Ci is a "JMP" in BAS-1, 
and the high byte of the start address of the relocating buffer for 
RAE-1. By checking this memory location when the "up-arrow”" occurs, the 
correct handling for BAS-1 is provided. Here are all required program 
changes for the "improved" parallel patch: 


G16  ;ADD THE FOLLOWING DEFINITIONS 


GB2G 

@83G PAD -DE $A8G1 

9949 PADHI -DE $A8SF 

9656 PADD -DE $A8oS 

BG6G 

997  ;REPLACE LINES 399-429 WITH THE FOLLOWING 
S989 

BBID LDA PCR 

9199 AND #71111999¢ 

Gi11G ORA #79G991919 

G12G STA PCR 

G13G LDA #7@1111111 

Gi4G STA PADD 

G15G 

@16@ ;INSERT THE FOLLOWING BETWEEN LINES 779 AND 786 
9179 

9186 LDA *$C9 

Bi9D CMP #$4C 

G29G BE@ PRINT~ 

9218 

922  ;REPLACE LINES 969 9890 WITH THE FOLLOWING 
B239 

9249 WAIT BIT PADHI 

258 BMI WAIT 

B269 STA PAD 


STILL MORE ON PRINTERS 
As you can see above, we have learned to underline from RAE and SWP on 
the Epson! And installed a "software switch" to turn the printer off 
and on, as well. In addition, we now can also use the horizontal tab 
features of the Epson. 


As you know, RAE handles CTRL H, I, and @ in peculiar ways. Unfor— 
tunately, these peculiar ways conflict with the Epson way of doing 
things. Epson uses CTRL @ to enable the printer (and CTRL S to dis- 
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able it), CTRL I for tab control (in a manner inconsistent with RAE) and 
CTRL H in a manner which, in effect, allows backspacing without erasure, 
thereby permitting underlining, and, if desired, overstriking). 


Fortunately both RAE and the Epson treat the DELETE ($7F) in essentially 
the same way (except that RAE does echo a "\". As will be seen below, 
this feature makes for "clean" soft (on the CRT) copy. 


The trick is to have RAE echo and output CTRL U, V, and W (or any other 
unused control characters) as if they were CTRL H, I, and @ The first 
line of the listing from which this text was formatted prints on the 
terminal as *“@, although CTRL W was actually keyed in and stored in RAE. 
This turns on the printer. The second line contains the SWP instruction 
»«L, to indicate a fresh line start. The third line contains the data 
“STILL MORE ON PRINTERS" followed by 22 "“H"s followed by the correct 
sequence of underlines and spaces ss 86s CC - The *H’s were 
entered as CTRL U’s. The last line of the listing contains a "*“S", 
entered as CTRL S. 


To turn the printer on and off from RAE’s command mode, enter CTRL Wor 
CTRL S, followed by a DELETE (#7F, RAE echoes "\"). The DELETE prevents 
an error message from cluttering up the screen. 

Here is the section of the printer patch which does the job: 


>pr 868 1976 


GBSS BNE NOT* 

9B81G LDA *$C9 3BAS-Z STORES A $4C€ HERE 
9826 CMP #%4C 

G383B BE@ PRINT~ 3IF IN BASIC, PRINT THE “*~” 
884 TSX 

9859 LDA $193, X 3;RAE “stacks” control codes 
9868 CMP #%$29 

$879 BCS PRINT* 3Not a control code 

S889 PHA 

8898 LDA #949 3RAE will convert to null 
BIBS STA $193,X 

BI1G LDA #7* 

B92G JSR TOUT 

BI3D PLA 

B94 U_H “CMP #$15 

BISG BNE V_I 

8969 LDA #$98 

BI7G BPL OK 

6989 V_I CMP #%16 

BIID BNE W_Q 

1999 LDA #$99 

1916 W_Q CMP #%17 

1629 BNE OK 

1939 LDA #$11 

1949 OK PHA 

1959 CLC 

1869 ADC #949 3Make it printable’ 

1972 JSR TOUT 


Note that to permit "Printer Select" from the host computer, DIP Switch 
8 must be set to the "Select Not Fixed" position, and the printer then 
powers-on as "“non-READY". You may wish to include a LDA ##11, and a JSR 
QUTCHR in the Initialization Routine to make READY the “default” 
condition. $11 is the ASCII code for CTRL @ (DC1). An external 
hardware on-off switch can also be provided. Grounding pin 36 on the 
Amphenol connector will turn the printer on, i.e., “select” it. The 
hardware and “software” switches are wire-"or"ed together (active low). 
Dip Switch 8 essentially grounds pin 36; CTRL @ sets a flip-flop which 
does the same thing; CTRL S resets the flip-flop. 
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Most of our work involves the use of RAE rather than BASIC, hence we 
find it convenient to use SWP (a very highly customized version) as our 


word processor. Actually we use RAE as the Text Editor, and SWP only as 
the Formatter. 


Many of our readers prefer BASIC to RAE, and do not even have RAE 
installed. For them we are distributing KWOK’S BASIC WORD PROCESSOR 
(BWP-1). We have tried, and liked BWP-1, but have not yet built up = any 
real skill in its use. 


We have tried TECO, a very popular Text Editor developed by DEC for 
their PDP- systems, and very graciously placed in the public domain by 
them. Many months ago Frank Winter sent us a Formatter Supplement to 
the TEC6S (editor) program package distributed by the 6592 Program 
Exchange. Shortly thereafter, Dale Holt sent us a complete package for 
review, but the source code was not in RAE format. Dick Albers’ worked 
with Dale, converting source code to RAE format, and helping to debug 
and enhance Dale’s original version. 


The Holt/Albers version of SYM-TECO should be ready for distribution 
early next year. It is stand-alone, requiring neither BAS-1 or RAE-1 
(although the latter would be very helpful in customizing it). 


Aside from the obvious cost savings, the major advantage of TECO lies in 
its "“universality", in that many time-share users learn TECO as their 


first word processor, and TECO-type word processors are available for 
most systems. 


Denny Hall, who uses his Apple II for most applications, feels that the 
SYM-1 is a better way to go for word processing, and that the cost of a 
SYM-based word processor to supplement his APPLE is much less than the 
cost of the added "cards" necessary to convert the Apple to ae word 
processor. Also, he has found, as we have, that two individual systems 
can, at times, be more useful than one dual-purpose system, since they 
can be used simultaneously on different tasks. 


(Parenthetically speaking, ane of our “one-of-these-days" ambitions is 
to develop an interface card (and the software!) to join the Apple and 
the SYM. A single SYM would, at much lower cost, replace many RS~-232, 
Serial/Parallel 1/0, Printer Interface, 8@ Character/Lower Case, etc., 
add-on cards for the Apple. What a market for this!) 


At any rate, Denny is putting the "finishing" touches (we are sure he 
will continue to provide continuing customer support) to a SYM-based 
Word Processor, with special control features, for a student with 
limited use of his hands. Denny plans to GEM SYM-based word processors, 
standard or customized with, for example, large character sizes on the 
CRT, verbal feedback, elimination of the need to strike two keys 
simultaneously as for CTRL characters, etc. He had planned to use 
RAE/SWP, and is doing so for his first systems, but is seriously 
considering SYM/TECO in EPROM instead. The student for whom he is 
building the first system will also be using the system as a_ terminal 
(from home) to the school’s PDP-11, on which TECO is also available, and 
the compatibility will be a strong plus! Incidentally, we both consider 
the Novation D-CAT Modem (the "D" is for Direct Connection) to be the 
"best-buy" for computer networking. 


MORE ON BUFFERING 

We have mentioned that "“over"-buffering of the SYM’s Address and Data 
Busses can cause the kinds of problems buffering is supposed to solve. 
The following extract from a recent letter presents additional 


experience with “overkill” in buffering: 


Another point, and this is really the last one. You remember 


SYM-FPHYSIS 9325 


Lux that I wrote you about my memory problems some time ago 
when I bought FORTH. C Yes I certainly do remember, Marc, 
how discouraged and frustrated you were over the memory 
problems you were having at that time! —- Lux J] 


Here is my mistake; perhaps it can help others: I decoded the 
addresses for the RAMs with 2 74LS138s. The first for the 8K 
blocks, the other for the 1K blocks. Also on each card I 
buffered Address as well as Data lines even when they were 
already buffered on my mother-board. I eliminated the 
buffers on each card and replaced the 74LS138 with 745138 and 
now everything works fine. 


Yours SYMcerely, 


Marc SYMons 
Woudlaan, 58 

B-1978 Wezembeek-—Oppem 
Belgium 


Here is a truly powerful utility for RAE-1! It provides the time and 
date information on request, and even inserts the information into your 
RAE file at Line 9096, so that you can mark a file with the latest 
revision date and time. 


Here are a few precautions on its use: It will not interfere with 
Cassette I/0 at the normal 149@ baud rate, nor with serial terminal 1/0 
at less than 1299 baud. It also will not interfere with Disk I/0, since 
the DOS checks all reads and writes against check sums until it is 
satisfied that all has gone well (it will, of course, give up, and let 
you know about it, after a prespecified number of failures). The 
interrupt service time is short enough to cause no problems, except 
possibly at midnight, especially at the end of the month, and New Year’s 
Eve, when you probably are not at the computer (at least leave the 
terminal for a few seconds). 


Operation of the terminal at 4869 baud, however, could cause problems. 
If interrupt occurs during a character output time the character on the 
terminal will be garbled. This is not too serious. An interrupt during 
a character input time could be disasterous. What if the character was 
garbled into a CTRL B, which sends the SYM into BASIC, and destroys 
pages @ and 12777777777? Dick Albers guards against this kind of near 
catastrophe by calling an input program which calls SEI during character 
input time (this feature should have been in SUPERMON!) to inhibit 
interrupts. 


We would like to see the matter handled by having a keystroke also 
create an IRQ (or maybe an NMI) as in the Moser Paddle Game in an early 
issue, and giving keystrokes priority over timer interrupts. It would 
be fun to work out the details; meanwhile we will keep the clock running 
whenever we are in RAE, to get some idea of the frequency of 
catastrophes! We are putting our faith in being able to recover any 
"lost" RAE files by the 


It just happened!!! Hit the <cr> and an up-arrow N appeared. Hit 
another key and the program went into limbo.......+555 


As we were saying, we can recover “lost" files by the method described 
in the RAE-1 REFERENCE DATA CARD sent out with RAE NOTES #1, on how to 
recover after "accidental" Clear. If the problem occurs too frequently, 
we shall write the priority interrupt handling program. Incidentally, 
the use of an interrupt driven clock is one more justification for using 
a parallel interfaced printer rather than a serial driven one; clock 
interrupts can’t botch up the hard copy. And now, here’s the program: 
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AB 


A8 


UIRQVC 
TILL2 
T1iCH 
TILL 
ACR 
IER 
ACCESS 


LINK 


START 


en ee oe we 


-BA 


12:51:58 SUN 1 NOV 1981 
21:45:21 SUN 2@ SEP 1981 
RAE CLOCK 

By Richard R. Albers 

Assemble program (requires $387 bytes) 

RUn LINK to link to Supermon and RAE 

USer S to Set time/date (prompts given) 

USer P to Print time on CRT 

USer I to Input time into RAE file (line #6) 


$9999 


o 
oO 


User IR@ vector 
Read counter/clear IRQ@ 
Write hi latch/transfer 
Write low latch 
Aux control reg 
Interrupt control reg 


$A678 
$ABS4 
$A89S 
$ABS6 
$ASOB 
SABBE 
$8B86 
$82FA 
$8A47 
$8739 


LINKING SUBROUTINES 


JSR ACCESS Allow writing SYSRAM 

LDA #L, ISERV 

STA UIR@VC Link interrupt routine 

LDA #H, ISERV 

STA UIRQVC+1 

LDA #L,RAEUS Link to RAE-1 “USr" command 
STA $94 

LDA #H,RAEUS 

STA %$95 

LDA #$4C “JMP" 

STA *$83 Replace the 

RTS RTS and NOP here with 
NOP CLC and BRK, respectively, 


to call from RAE via FODS. 
START THE CLOCK 


SEI Disable IRQ 

LDA #$C9 Initialize interrupt reg 
STA IER 

LDA #$49 Free-run timer 1 

STA ACR Clear all else 

LDA #$51 Adjust this to Xtal 

STA: TILL Set timer latches 

LDA #$C3 (low then high) 

STA T1ICH And trigger timer i 

LDA #999 
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29 
DS 
AD 
c? 
99 
BS 


BD 


EF 


B4 


9D 


99 


96 


9D 


96 


Ag 


98 


96 
9G 


9G 


96 


9D 


78 


96 


ISERV 


TIMLP 


NEW 
MORE 


CKDOM 


RETURN 


DOM 


REMO 


FEBR 


CFEB 


wee 


CPX 
BEQ 


LDA 
PLA 
TAX 
PLA 
RTI 


3 DETERMINE 


TIMR 


TIMLP 


Clear fractions of secs 
Allow IR@s 


Interrupt service routine 
Save regs 


Work in decimal mode 
Set up index 


Get current value 
Decimal increment 
Only on new century 
Store new value 
Check limit 

May be done 

Day of month reg? 
Yes, check days in month 
Otherwise, 

Zero this register, 
And index next reg. 
(Always) 


LOCK DAY OF MONTH INCREMENT TO 
DAY OF WEEK (SUN-SAT) INCREMENT 


#FD4 
MORE 


TILE? 


CHECK FOR 


MONTHS 
#$01 
FEBR 
DAY/MO 
DTAB, X 
RETURN 
#95 
#991 
NEW 


YEARS 
CKCENT 
#SOF 
SCRA 
YEARS 
#S1G 
A 

A 

Aa 
SCRA 
#E9D3 
REMO 
DAY/MO 
#930 
RETURN 
REMO 


Just do day of week? 
Inc day of month also 


Clear 6522 interrupt flag 
Restore registers 


Restore flags & return 
END OF MONTH 


Get current month 
February? 


Get current day 

At limit for month? 

No, done 

Restore index to day/ma 
Start new month at day 1 
(Always) 


LENGTH OF FEBRUARY 


Check for leap year 
Even century 


Save units 


Get tens odd/even bit 
Clears carry 


Add shifted tens & units 
Get divide by 4 remainder 
Not leap year; Mar 1 
Check current day # 

Leap year limit 

Leave day = 29 


Start March 
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9BIB— 
9B9E-— 
IBAD— 
IBAS— 
2BAG— 


79A8- 
9BAB-— 
9BAE— 


99B1— 
9GB4— 
9BB7— 
ISBA- 
9BBD— 
9SBE-— 
9OBF— 
22C8— 
96C1— 
979C2-— 
9SC3— 
99C4-— 
99C5— 
98C6- 
9BC7— 
99C8- 
99C9- 
98TA-— 
99CB-— 


98CC— 
9SCF— 
96D2— 
96D5-— 
76D8— 
96DB- 
99DC— 
9SDF— 
9GE2— 
9GES- 
IBEB— 
9SEBR— 
IOEE— 
9GF1- 
IDF 4— 
9BF7— 
IGF A- 
99FD— 
9199-— 
91B3- 
91G6—- 
9199- 
919C-— 
91 BF-— 
PLI2Z— 
9115- 


9B 


9G 


1389 
1319 
1328 
133@ 
1349 
1359 
136@ 
1379 
1389 
1399 
1499 
1416 
1429 
1439 


1449 
1459 
1466 
1479 
1489 


1499 


1599 
1516 
1528 
1538 
1549 
1552 
1568 
1579 
158a 
1598 
1699 
1618 
1629 
1638 
1649 
165¢@ 
1666 


1676 


1689 


1699 


1729 


1719 


CKCENT 


TABL 


DTAB 


TIMR 
SECONDS 
MINUTES 
HOURS 
DAY /WK 
DAY/MO 
MONTHS 
YEARS 
CENTURY 


SCRA 
SCRB 
SCRC 


DWTAB 


MOTAB 


3; DETERMINE LENGTH OF FEBRUARY IN 

3; EVEN NUMBERED CENTURIES 

; (current calendar only) 

LDA CENTURY Get year divided by 49¢ 
AND #$@F 

STA SCRA 

LDA CENTURY 

BNE CFEB (Always) 

3; TABLE OF LIMITS: Fractions >> Centuries 
-BY $29 $69 $69 $24 $98 $29 $12 $9A $99 
; Year limit @9A allows year = 99 

3 DAYS PER MONTH LIMITS 

-BY $31 $28 $31 $39 $31 $39 

«BY $31 $31 $38 $31 $30 $31 

-~BY $603 392 ;Fractions of seconds 
-BY $99 3@1 

~BY $99 392 

-BY $99 393 

=BY $99 394 ;Day of week, 9 = SUN 
«BY $9¢ 325 ;Day of month, 1 - 31 
-BY $99 396  3;Month, @ —- il 

-~BY $93 397 ;Low digits of year, 98 - 99 
.BY $99 398  ;High digits of year 
-~BY $20 399 ;Space 

-BY 3A 398A ;Colon 

.-BY $3B 3B ;Semicolon 

-BY $09 39C 3;Scratch area 

-BY $48 

-BY $6¢ 

wBY 7 “SUN? ” MON" 7 TUE* * WED* 

oy * THU? ~ (FRE > “SAT? 

aby: 7 idAN?.~ FEB? > (MAR? 

-BY ’ APR’ ” MAY’ 7” JUN’ 

-BY ’ JUL” ” AUG’ ” SEP’ 

«BY * OGT” * NOV” * DEG: ? 


SYM=PHYSIS 7329 


9118- 


29 


71 


4F 


81 


92 


96 


96 


RAEUS 


PENT 


NOGOOD 


TSET 


COMPT 


NEXTT 


LRET 


SPECL 


LONG 
SHORT 


NOV 
x4 


RAE’S USr COMMAND ENTRY 


TAY Save argument 

LDA #H, RAEHOT 

PHA Push return address 
LDA #L,RAEHOT-1 

PHA 

TYA 

CMP #7A Test for alpha 

BCC NOGOOD 

AND #$5F Be sure it’s u/c 
PHA Save argument 

CMP #’P Print time? 

BE@ COMPT 

CMP #’I Input time to RAE? 
BE@ COMPT 

CMP #7S Set time? 

BE@ TSET 

PLA Clean stack 

SEC 

TYA Get original input 
JMP ERMSG Invalid argument 
PLA Discard "S" 

JMP TIMSET 


; PUT TIME INTO BUFFER, 


SEI 
LDX 
STX 
LDXx 
STX 
STX 
LDA 
BEQ 
BMI 
TAY 
LDA 
JSR 
INX 
BNE 


STA 
LDA 
BIT 
BYVS 


LDA 
STA 
LDA 
AND 
TAY 
LDA 
CPY 
BCS 


CMP 
BCC 
BEQ 
LDA 
BNE 
LDA 
ASL 
ASL 


FORMATTED 


Prevent time changes 
#$B2 
SCRA Set BUFF index 
#59D Clear DRTAB index and 
BUFF Load BCD line # 
BUFF +1 
DRTAB,X Get index byte 
CDONE Terminate time transfer 
SPECL Store ASCII char (s) 
Index into TIMR 
TIMR,Y Get time byte 
STOBCD Store it as ASCII 
NEXTT (Always) 
SCRC Save for test 
#E9D1 
SCRC Test bit 6 
SHORT Store 1 char 
#E94 4 chars to store 
SCRC 
DRTAB,X Get index again 
#93F Mask off flag bits 
TIMR,Y Get char to store 
#999 Day, month, or other? 
SPs Other 
#G19 
x4 
NOV 
#$9B Must be December 
x4 Always 
#90 
A X4=Index for day 
A SYM=PHYSTS 92.40 


9187— 
7169— 
918B- 
918C- 
918D- 
919F- 


S192— 
F193—- 
9196- 
oe Oe oy a 
919C- 
FFE = 
FIDF- 


FiAl— 
9F1A2- 
91AS- 
91A8- 
F1AA- 
FLAD- 
91BS— 
TiRe— 
91B4— 
91 Bé- 
SIT By= 
91 BA- 
91 BC- 


91BE- 
91Ci- 
91C4- 
91C7- 
91CA- 
91CD- 
91CE- 
91D9- 
F1D3- 
91D6- 
91D8- 
91DB- 
91DD- 
91DF- 
F1E2— 
91E4- 
F1ES— 
F1E9- 
F1EB- 
F1ED- 
F1EF- 
91F1- 
F1F3- 
91F5- 
91F8- 
91FB- 
91FD- 
9266- 
92B2- 
9284- 
9287- 
9289- 
929B- 
928C- 


ce 
Dg 
18 
D8 
69 
EE 


A8 
B9 
28 
CE 
Fo 
cs 
DS 


53 
AE 
BD 
a9 
9D 
AD 
c9 
DS 
Ag 
8D 
68 
c9 
Fo 


29 
AD 
8D 
AD 
8D 
18 
49 
8D 
AD 
69 
8D 
AS 
69 
8D 
AS 
69 
8D 
AS 
69 
85 
AS 
69 
85 
26 
AD 
85 
AD 
85 
AD 
BI 
cai 
3B 
cs 
19 


Bb 
D7 


96 


96 
72 
99 


98 
G1 


G1 
G1 


@1 


AS 


MON 


DAY 
NXTD 
SP3: 


CDONE 


NLZ 


MOVF IL 


MOVIT 


LDA 
STA 
PLA 
CMP 
BEQ 


#EB6 
DAY 


#$1C Add 
SCRC 


DWTAB, Y 
STOASC 
SCRC 
LRET 


NXTD 


SCRA 
BUFF-1, X 
#989 
BUFF-1, X 
BUFF+$12 
#939 

NLZ 

#$29 
BUFF+$12 


#7P 
TIMOUT 


Month? 


28 to index month 


3;Need five bytes (two spaces) 


Store day of week 


Count chars 


(Always) 


Allow time changes 
Get BUFF index 


Mark line end 


Test for leading zero 
Replace with a space 


Check argument 
Print time only? 


3; MOVE TIME INTO RAE TEXT FILE 


ACCESS 
TXST+1 
P2H 
TXST 
P2L 


#$1D Add 


aTPRES 
xXTPRES+1 
H#SDS 
aTPRES+1 
BLKS+7 
TXST 
*x$CA 
TXST+1 
*$CB 
#$9D 
BUFF, Y 
($CA),Y 
PRT 


MOVIT 


Move existing text 


29 bytes 


Pick up any carry 


Include end-of-file 


Pick up any carry 


Compute new end 


Pick up any carry 
Let Supermon move it 


Set up indirect addr 


Move from BUFF to text 


(Always) 
SYM-FPHYSIS 9331 


GB 
FA 
FA 
G1 
G2 


OS 
35 


47 
F7 


cA 
Cc? 


82 
82 


@1 


92 


8A 


81 


3G2G 
3G3D 
3GAD 
395G 
396 
3B7B 
38S 
3GID 
3188 
3119 
3128 
3138 
3148 
3159 
3168 
317G 
3186 
3199 
3299 
3210 
3228 
3238 
3246 
32508 
3269 
3278 
3288 
3298 
S3OD 
3318 
3328 
3339 
3348 
33598 
3368 
3379 
3388 
339G 
3498 
3419 
3428 
3436 
3448 
3459 
3466 
3478 
3488 
3499 
359D 
3516 
3528 
3538 
3549 
3558 
3569 
3579 
3589 
359G 
36GB 
3618 
3629 
363G 
3648 
3658 
3669 


PRT 


TIMOUT 
OUT 


STOBCD 


STOASC 


STOB 


TIMSET 


PMOR 


NXTR 


ADJUST 


STOM 


#S9DD 
OUTBYT 
OUTBYT 
#$D1 
OUT 


#SDS 


BUFF , X 
OUTCHR 
ouT 


SCRB 
SCRA 


OUTCHR 
PMOR 
INBYTE 


BAD 
#399F 
#$GA 
BAD 


#FDE 
ADJUST 
#$B4 
STOM 


Print line # as "9899" 


Print the rest of line 
(Always) 


Print the time 


Save DRTAB index 
Get BUFF index 
Save byte to store 
Store high nibble 


Convert to ASCII 


Store low nibble 
(Always) 

Save DRTAB index 
Get BUFF index 


Save BUFF index 
Get DRTAB index 


Inhibit time changes 
Set index regs 


Print <reg name>= 


(Always) 
Get value for reg 
Only decimal wanted 


Test low nibble 


Test high at STOT 


#%91 Adjust to JAN=0@9, SUN=99 


BAD 
#995 
stot 
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9G 


49B59 


4GES 


497G 


PRTS 


SETMES 


SDONE 


MSTAB 


- BY 


«BY 


- BY 


#932 Allow day of month = 31 
BAD 

sta 

TABL, X Check range 

BAD 

TIMR, X 

#OD7 Year needs 4 digits 
BAD Skip CRLF if year 

CRLF 

TSTAB, X 

PMOR 

#999 Prepare to start clock 
SETMES Print "AT EXACTLY " 
#’7P 

PENT Print the TIME 

#$9C 

SETMES Print “ TYPE RETURN" 
INBYTE Get it 

START Start clock 

#999 

TIMR Clear fractions 

CRLF 

CRLF Make room to print 
TIMOUT Print the time again 
CRLF 

SETAB,Y Print time-set message 
SDONE 

OUTCHR 

SETMES (Always) 

* 4 DIGIT YEAR=’ $99 

72 DIGIT MONTH (@1-12)=" $99 

72 DIGIT DAY (G1-31)=’ $99 

*2 DIGIT WEEKDAY (SUN=91, SAT=67) =’ 


SBD 
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9326- 53 41 54 
9323- 3D 39 37 
9326- 29 3D 9G 
9329- 32 28 44 4989 -BY ’2 DIGIT HOUR=”’ $69 
932C- 49 47 49 
932F- 34 28 48 
9332- 4F 35S 52 
9335- 3D BOB 
9337-— 32 20 44 4999 -BY ’2 DIGIT MINUTE=’ $99 
933A- 49 47 49 
933D- 54 28 4D 
9349- 49 4—E 55 
9343- 54 45 3D 
9346- BO 
9347-— 32 20 44 4199 -BY ’2 DIGIT SECOND=’ $99 
IS4A- 49 47 49 
934D- 54 28 353 
935G- 45 43 4F 
9353- 4E 44 3D 
9356- BO 
9357- 41 54 26 4116 SETAB -BY *AT EXACTLY ” $99 % 
935A- 45 58 41 
935D- 43 54 4C 
936G- S? 29 OB 
9363- 26 54 59 4126 »-BY * TYPE RETURN’ $99 
9366- 5B 45 26 
9369- 52 45 54 
936C- SS 52 4E 
9S6F-— GB 
937B- 9B 7A 6A 4138 TSTAB -BY $68 $7A $6A $5C $3B $26 $OF SHE $O1 
9373- SC 3B 26 
9376- OF BE G1 
9379- C9 CB C9 4148 DRTAB -BY $C9 $CB $C9 $93 $CA $92 $CA $61 
937C— B3 CA G2 
937F— CA @1 
9381- 84 C9 G5 4158 -BY $84 $C9 $95 $86 $98 $97 $99 
9384- 86 98 G7 
9387-— BG 
4169 
4179 -EN 


EDITOR’S NOTE: 


WE PUBLISH THIS OVER DICK ALBER’S PROTESTS THAT IT IS NOT YET READY FOR 


PUBLICATION! HE DID APPROVE PUBLICATION IF WE CLEARLY MARKED IT AS A 
"PRELIMINARY DRAFT", AND DID POINT QUT THE THREE PROBLEM AREAS, FOR ALL 
OF WHICH HE HAS SOLUTIONS. HE HAS PROVIDED THESE SOLUTIONS, WHICH, 


AFTER DEBUGGING AND WE SHALL PUBLISH IN THE NEXT ISSUE OF 


SYMPHYSIS. 


"POLISHING", 


INTRODUCTORY TEXT, 
INHIBIT 


THE FIRST TWO PROBLEM AREAS, AS MENTIONED IN THE 
REQUIRE POINTING INVEC AND QUTVEC TG SUBROUTINES WHICH 
INTERRUPTS DURING THE ACTUAL I/O OF THE SERIAL BITS. 


THE THIRD PROBLEM AREA IS DUE TO THE OFTEN QVERLOOKED FACT THAT THE 
BREAK INSTRUCTION SETS THE I FLAG AS WELL AS THE B FLAG! THUS, ANY 
EXITS TO MON FROM RAE (DONE VIA THE BRK INSTRUCTION) STOP THE CLOCK. 
THE SOLUTION TO THIS IS TO POINT UBRKVEC TO A ROUTINE WHICH INCLUDES THE 
NECESSARY CLI INSTRUCTION. 


Now you will see why we moved our printer to free up the B port for more 
valuable uses. The following BASIC program, by Joe Hobart. provides a 
very informative demonstration of the use of the Timer/Counter in the 
VIA. We have modified Joe’s original program to use Jack Gieryic’s 
BASIC *GET* Function, which should be of much interest to BASIC users. 
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AN INTERVAL TIMER FOR SYM BASIC 


BY JOE HOBART, 3465 ANDES DRIVE, FLAGSTAFF, AZ S69G1 


PROGRAMS LIKE "OREGON TRAIL" USE A TIMER TO MEASURE THE INTERVAL BETWEEN 
THESE PROGRAMS*’ STIMULUS AND A PERSGN’S RESPONSE TO THAT STIMULUS. THE 
6522 LOCATED AT U-28 PROVIDES A SIMPLE WAY TO IMPLEMENT SUCH A TIMER. 
THE FOLLOWING PROGRAM ILLUSTRATES THE USE OF THE 6522 AS A VERY ACCURATE 
TIMER THAT CAN BE USED IN A BASIC PROGRAM TO GIVE INTERVAL MEASUREMENTS 
FROM @ TO 6@%.9@ SECONDS. THE ADDRESSES SPECIFIED REQUIRE THAT U-28 HAS 
BEEN INSTALLED AND THAT PB7 (AA-S) BE CONNECTED TO PBS (AA-H). I USED AN 
EDGE CONNECTOR WITH PIN 6 WIRED TO PIN H SO THAT IT COULD BE EASILY RE- 
MOVED TO USE OTHER ACCESSORIES AT THE AA PORT. 


THE PROGRAM CAN BE MODIFIED TO GIVE OTHER RANGES BY CHANGING THE NUMBER 
STORED IN Tl REGISTERS. 5990 GIVES A .@1 SECOND WAVEFORM AT PB7. 5999a 
WILL GIVE A #.1 SECOND WAVEFORM AND A TIMER THAT WILL COUNT BY TENTHS TO 
SIX THOUSAND SECONDS. THE DIVISOR IN LINE 32@ WILL HAVE TO BE CHANGED 
TO 1@ TO GIVE THE CORRECT TIME, HOWEVER. NOTE THAT READING THE T2 REG- 
ISTERS DOES NOT STOP THE COUNT DOWN. THE ONLY WAY TO RESET THE TIME IS 
TO RELOAD THE T2 REGISTERS BY POKE STATEMENTS. ONCE STARTED, THE TIMER 
Ti WILL PROVIDE A STEADY QUTPUT WITHOUT FURTHER ATTENTION. T2 WILL THEN 
DECREMENT ONCE FOR EACH PULSE FROM Ti. IF LEFT UNATTENDED, T2 WILL PASS 
ZERO AND CONTINUE COUNTING DOWN FROM 65536. 


ONCE ALL THE REMARK STATEMENTS HAVE BEEN REMOVED, THE PROGRAM IS QUITE 
SHORT. Ti ONLY HAS TO BE INITIALIZED ONCE. T2 CAN BE LOADED OR READ AS 


DESIRED DURING THE PROGRAM. THE TIMER IS COMPLETELY INDEPENDENT OF ANY 
OTHER PROCESSING ON THE SYM. 


(Added notes by Lux —- We have nade up a number of patch cords with micro-— 
clips on both ends, and used such a cord to jumper AA-6 to AA-H on the 44 
pin connector wired to the Epson. We used the square wave generated at 
PB-7 to check out the time base calibration of our scope. We have ordered 
a really nice frequency meter made by Albia, and we look forward to its 
arrival so that we can use this program to generate test signals for it.) 


1 REM Program by Joe Hobart 

2 REM Modified by Lux to include 

3 REM "A Simple BASIC GET Function” 
4 REM by Jack Gieryic 

S REM 

19¢@ REM 


11@ REM CONNECT SYM AA-6 TO AA-H. U-28 MUST BE INSTALLED. 
128 POKE 42579,128 
13@ REM INITIALIZE U-28 Ti AND INHIBIT IRQ 


159 POKE 43922, : REM INHIBIT IRQ ($A8@E) 
169-POKE 43019,224 : REM SET ACR (#A89B) 


184 REM LOAD 599@ INTO Ti TO GIVE A .@1 SECOND SQUARE WAVE AT PB7 


289 POKE 43912,136 : REM PUT 136 IN TIL-L ($A864) 
210 POKE 43913,19 : REM PUT 19 IN TiL-H (#A895) 


239 REM LOAD 69999 INTO T2 TO COUNT DOWN FROM 699.99 SECONDS 
249 REM 

256 PRINT"Hit any key to start timer, then any key to stop it.” 
251 PRINT"The time interval between keystrokes will be printed.” 
252 PRINT"Exit with ESC key.” 

253 PRINT 

254 GOSUB1I9GS 

26@ POKE 43916,96 : REM PUT 96 IN T2C-L ($A898) 

27@ POKE 43@17,234 : REM PUT 234 IN T2C-H ($A869) 

289 REM 


299 REM READ T2 COUNTERS AND CALCULATE TIME INTERVAL SYM—-FHYSIS 


<3 
w 
an 


349 PRINT"The timer is running........":PRINT 

319 GOSUB1999 

329 T=INT (69@99—-PEEK (43916) —-256"PEEK (43917) ) /199 

338 PRINT:PRINT"Elapsed time was "T"seconds." 

331 PRINT 

344 GOTO19a 

1990 POKE42579, 9: GOSUB1991:POKE42579, 128: RETURN 

19@1 Q=USR(—-3812G,-11957, 4) : CH=128-(@/ (—256) ) 

1962 IF CH=27 THEN POKE 42579, 128:END 

1993 RETURN 

1994 REM Lines 199% - 19@3 are based on a very ingenious BASIC "GET" 
1995 REM program submitted by Jack Gieryic many months ago but not yet 
1994 REM published due to lack of space. We present it here for your use 
1997 REM without explanation of how it works, except to say that line 
1998 REM 149@ controls (i.e., suppresses echo of the "GOTTEN" character 
1999 REM and may be omitted if desired) TECHO. 


Hit any key to start timer, then any key to stop it. 
The time interval between keystrokes will be printed. 
Exit with ESC key. 


The timer iS running..-«sesee 


Elapsed time was 2.71 seconds. 


Hit any key to start timer, then any key to stop it. 
The time interval between keystrokes will be printed. 
Exit with ESC key. 

OK 


ON PRINTER RIBBONS 


One very minor problem we have found with the Epson is a relatively 
short ribbon life. By this we dao not mean that the ribbon becomes 
unuseable, but that the impression seems to "weaken" very rapidly. The 
ribbon is not rolled tightly on a spool where it has a chance toa 
"re-ink" itself from contact with adjacent layers. Instead it is 
literally pushed into one end of an enclosure and pulled out at the 
other end. 


For most applications the gradual lightening of the impression would 
present no real problem; just discard the ribbon whenever the printing 
appears too light for your taste. This does present a serious problem 
in preparing camera-ready copy for publication, however, in that 
material printed several days apart cannot easily be matched in 
appearance. Pasting in a corrected word or phrase in the middie of a 
previously printed paragraph looks bad if the new material appears much 
lighter or darker. We find that we must reprint the material again, 
with the corrections made in the computer. 


We tried to "revive" a ribbon by giving it a half-twist, and rewinding 
by hand to use the other edge. This made no difference. A friend 
Passed on to us the following tip he had heard from an Epson user: Pry 
open the top cover of the ribbon cartridge and saturate the ribbon with 
WD-46 spray lubricant (a non-silicone containing product made in San 
Diego, CA; don’t know if it is available on a national basis). Give the 
material an hour or two to penetrate and/or evaporate, wipe off the 


cartridge, and replace it in the printer. The ribbon will then have a 
new lease on life. 


Our friend did not know how many re-leases were possible. We tried it, 
mostly out of curiosity, and it does seem to work. With new ribbons 
selling at around $15.98, this could be a real money saver! We now feel 
challenged to see just how many WD-4@ recycles a ribbon can accept in 


its lifetime! SYM“FHYSIS 9336 


“STRUCTURED” ASSEMBLY PROGRAMMING IN RAE! 


Norbert Shue sna address below, sent us a review copy of his MAC65 (why 
do we keep thinking of it as "Big MAC"?) enhancements to RAE-1. He used 
RAE’?S built-in conditional and macro capabilities to incorporate a very 
owerful set of new pseudo opcades into its structure, using the prefix 

as the designator. These new pseudo-ocps provide the experienced RAE 
user with a fully structured programming tool. 


to explain both MAC65 and the entire 
“structured” programming is to reproduce below the simple, but elegant, 
two page instruction manual, which includes an informative 
comparision-by-example with Pascal and portions of a sample run in 
which the "proprietary" macro definitions were "blanked" with the .LC 
{List Clear) seudo opcode. We will be distributing MAC6S for Mr. 
Thuering (details elsewhere). 
USE OF MACé6S 


When you wish to use MACSS, 


pow 


The easiest way concept of 


enter RAE at its cold start ($B99@) and 


modify the default set parameters to meet your needs. Next get MAC6S 
from mass storage, and then_begin entering your program at the end 
of MAC6S (just after .LS). Then ASsemble your program and check @2SP 


and @NEST in the 
program is ready 


Syntax of MAC6S: 


label file to be 9@8@ (no nesting errors). 


Now the 
for use. 


Here is a short macro-syntax description: 
— all macro key-words begin with °2’ 
] My ional, may be omitted 
paras J block may be repeated 
< > syntactic constructs 


macros and mnemonics 
EE HI LO ES GE GE LF &@ NE HS 
RAE-expression, variable, constant 


OIF ( <expr> <cond> <expr> ) 
«.» COAND ( <expr> <cond> <expr> )J 
».«-C9OR { <expr> <cond> <expr> )] 

@THEN 

<block> 

C9ELSE J] 

{C<block>] 

DENDIF 

@WHILE ( <expr> <cond> <expr> ) 
««.«CMAND ( <expr> <cond> <expr> )] 
««.f9OR { <expr> <cond> <expr> )J 

aD0o 

<block> 

DENDWHI 

@FOR ( <var> <start> <end> <step> ) 

<block> 

ONE XT 


OCASE ( <var> ) 

9OF ( expr? ) 
eae LD ein os > 

«block> 
=. LOGF ( <var> ) 
oo eA CO. ( <var> ) 
eee f<block> 

2ELSE 

C<block>] 

DENDCAS 


OWRITE ( <label> >) Text must be declared as follows: 


TEXT1L »-BY ’This is a text’ @. 


--> IMPORTANT! Variables used in the program have to be declared 
before use, otherwise the macros of MAC6S won*t work correctly 
(refer ta example of HI-LO game). 


The macros are intended for use with variables and constants 
restricted te the range of 9, . . « 5255, OF, $90, . » = »tFF. 


‘Do not use variables located at page zero. SYM-FHYSIS 9137 


EXAMPLE: HI-LO GAME 


The following example is divided in two parts: 
PASCAL-like notation of the example program, 


on the right is a 
on the left the 


equivalent MAC6S notation. 
TIMER .DE $A923 
INBYT .DE $81D9 
vee $PB2HH 
TRY -DS 1 — BYTE: TRY,NUMBER, GUESS; 
NUMBER .DS 1 
GUESS .DS 1 
TEXTi .BY 13 1@ *Your guess? ’ @ 
TEXT2 .BY 13 19 *Correct !” @ 
FEATS: «BY 13 10 *fao high. © .7 2 
TEATA .BY 13 19 *Too tow, <1. 5? 2 
ENTRY 
LDA #@ — TRY:=9; 
STA TRY 
LDA TIMER — NUMBER: =RND(@); 
STA NUMBER 
anes (TRY EQ @) —- WHILE TRY=@ DO 
is) 
QDWRITE (TEXT1) = WRITE("Your guess? "); 
JSR INBYT = READ (GUESS) ; 
STA GUESS 
@IF (NUMBER EQ GUESS) = IF NUMBER=GUESS THEN 
THEN 
@WRITE (TEXT2) = WRITE ("Correct !")5 
LDA #1 = TRY:=13 
STA TRY 
ELSE = ELSE 
a aa LO GUESS) = IF NUMBER < GUESS THEN 
N 
OWRITE (TEXTS) = WRITE("Too high . . .")5 
@MELSE = ELSE 
@WRITE (TEXT4) = WRITE("Too low. . oF 
QENDIF = END; 
@ENDIF <3 END; 
DENDWHI —- END. 
RTS 
-EN 
>ASSEMBLE LIST 
BOD aks 
DA2D 5 RARER KARATE AAR ERAS 
GB3DB 5% x 
@G49 5% MAC6S Vi.@ DATE 23.86.91 *& 
AGS =% x 
DOEDG 5 XARA TARE REAR 
OO7TD 3% : x 
2988 ;%* Norbert C. Thuering x 
9298 ;%* Rainstrasse 15 x 
$198 ;* B1AS Unterengstringen x 
Gi1G ;* SWITZERLAND x 
Gi2D 5% x 
GASH 5 RAK KAAA AEE RAE EEE 
B14B 
B42B shes 
B43e 
449 ; CONDITION CODES FOR MACROS 
BASH 
9468 EQ -DE @ equal 
47H NE -DE 1 not equal ; 
9489 HS -DE 2 higher or same (binary) 
2498 HI -DE 3 higher wetddatt 
8599 LO -DE 4 lower (binary 
@35i1@ LS -DE 5S lower or same (binary) 
As20 LT .DE 6 less than (2’s complement) 
@3538 LE .DE 7 less or equal (2’s complement?) 
G54 GT -DE 8 greater than (2’s complement) 
g55@ GE .DE 9 greater or equal (2’s complement) 
8569 IN «DE @ 
O57 
4288 -LS 
4299 
439@ ; SAMPLE PROGRAM BEGINS HERE 
431g 
4328 TIMER -DE $Ag@ge 
4338 INBYT -DE $81D9 
434G -BA $9299 
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4359 -OS 


4369 
G29G— 437G TRY -DS 1 
G2B1— 4389 NUMBER -DS 1 
@282— 4399 GUESS -DS 1 A 
G293- BD GA 47 4499 TEXTi -BY 13 1@ *Guess? g 
@2G6- 75 65 73 
92G9- 73 SF 29 
B29C- BB 7 e 
92GD- SD GA 435 4418 TEXT2 -BY 13 18 *Correct!’ @ 


@218- 9D GA 54 4428 TEXTS -BY 13 19 *Too high. . .” @ 


9229- 9D GA S54 4439 TEXT4S -BY 13 19 *Too low. .. .” @ 


O22F— 6C &F 77 NOTE: The hex addresses and dashes "Sprinkled" about 
in the source cade below were NOT entered b 
the programmer ! Thay are artifacts of RAE- 
* 


fie whenever .EC (macro pand Clear, default set-— 

i 4449 ting) is used. .ES (macro Expand Set) wastes 

4450 much, too much, paper to use very often! 
B230H- AP BB 4449 ENTRY LDA #9 
923C- BD 6 G2 44746 STA TRY 
923F- AD GB AD 4496 LDA TIMER 
G242-— 8D G1 G2 4499 STA NUMBER 

4599 @WHILE (TRY E@ @) 

4519 @DOg24C— : 

45208 @WRITE (TEXT1) 
925D- 24 DF B81 4538 JSR INBYT 
$269- BD 92 G2 4546 STA GUESS 

4550 @IF (NUMBER EQ@ GUESS) 

43569 @THENS26R— 

4576 DWRITE (TEXT2) 
927C- AI G1 4588 LDA #1 
@27E- 8D @8 @2 4598 STA TRY 

4599 DELSEG28 1-@281-— 

4618 @IF (NUMBER LO GUESS) 

462: @THENS28E— 

4532 QWRITE (TEXTS) 

46424 DELSES29F-B29F— 

4659 @QWRITE (TEXT4) 

4564 DENDIF 

4678 @ENDIF 

4468S DENDWHI 
B2B3-— 68 469@ END RTS 

4793 
/ /GBBS, B2B4, G2B4 
9209 Gi BE BE 2D BA 47 75 65,B5 2266 8D G2 G2 AD G1 $2 CD G2,BG 
62068 73 73 3F 24 GG BZD BA 43,54 2268 G2 FS GB 4C B84 G2 AZ BB,19 
9218 GF 72 72 65 63 74 21 99,94 9279 BD SD @2 FO G7 26 47 8BA,CD 
218 2D GA 54 6F SF 28 68 69,35E @278 E8 4C 7G @2 AP 1 SD 28,AA 
9229 67 68 206 2E 246 2E 28 2E,F7 @2389 G2 4C BY G2 AD Bi G2 CD,27 
@228 9B 2D BA S4 GF 6F 2@ 6C,CC 9288 @2 G2 FH @2 948 BS 4C AZ,VE 
9230 SF 77/7 2ZE 20 2E 2G 2E 26,9C $299 G2 AZ @B@ BD 19 B2 FO 7,18 
@238 2E 8 AP GB BD BO G2 AD, AF 8298 24 47 BA EB 4C 9S @2 4€,16 
G24G 28 AD BD Gi G2 AD BG G2,96 G2AGD BE G2 AZ OB BD 29 G2 FS,42 
9248 C9 @@ F@ SS 4C BS G2 A2Z,FS @2A8 7 24 47 8A EB 4C A4 42,14 
925@ 99 BD G3 G2 FY B7 2G 47,15 A2B9 4C 45 G2 66,97 
9258 8A EB 4C Si 82 24 DI 81,AG 3727 


NOTES: 

1) The hex code may be entered from MON, but the game MUST be played 
from RAE by Calling RUN #@23A. The clocks, all of them, ehave 
"strangely" when called from MON as this program uses them! 

2) The random number is in HEX, so enter two hex digits. 


Being fond of puns, we changed the name of this closing section of the 
newsletter from ISCELLANEA to RAM-BLINGS, since we randomly access our 
memory for items to fill the remaining space. 


You will notice that arts of this issue are printed @ lines to the 
inch, instead of the usual six. If there are no complaints, we will 
change over to the eight lines per inch, permitting 33 1/3 % more 
material in the same space. We’1ll stay with the pica size (16 pitch, or 
CPI), and 7@% photoreduction and avoid the 146.5 CPI of which the Epson 
is capable. 


SYM-FHYSIS 933? 


Jack Brown has asked us to announce, in a preliminary way, that he_ is 
nearly ready to formally announce the existence of his SYM-Pascal. Both 
cassette-based and disk-based (FODS) versions will be available. 
Detailed information on availability, specifications, and prices will 
appear in issue number three of his newsletter, Saturn Softnews. 


We have seen the first two issues, which provide very strong support to 
users of his FORTH and BASIC enhancements. Those interested are urged 
to contact Jack, directly, for a subscription. Address: P. QO. Box 397 
New Westminster BL ‘Es V3SL 4Y7, Canada. Price $14.9@ (US) or $12.98 
(Canadian) plus $4.99 (8) for overseas airmail. 


It wasn’t the teaching traveling/lecturing, hardware and software 
developing, etc., that delayed this issue. t was a very, very. slowly 
moving kidney stone that lowered our energy level by over 58% for some 
six weeks, and reduced our work output. Now that we are no. longer 
"stoned", you can expect Issue #19 to arrive within six weeks after this 
one, around the first of the year. 


We had hoped ta announce, with this issue, prices and availability for a 
number of new software products, but these will have to wait until Issue 
#12, which will include a completely updated Shopping List. The new 
ackages include Kwok’s Cross Reference Lister, Kwoks’s BASIC Word 
rocessor, Thuering’s MAC6S, Holt*s TECO Word Processor, a Music Package 
for limited RAM systems, and several others. 


We are OEMing customized SYM-based systems, and have been purchasing in 
eases ys to get good price breaks, such items as Epsons, Cassette 
ecorders, Power Supplies, Disk Drives, etc. Contact us about special 
prices for any peripherals for your SYM! 


Jack Gieryic has developed the required CODOS/SYM-BASIC link, based on 
Jack Brown’s Extended SYM—-BASIC. The pair of Jacks are working out 
marketing and distribution agreements. This was the "missing link as 
far as the Users’ Group being able to provide software support to 
SYM/COGDOS systems. 


Single-8" system. It is not easy to prepare software for distribution 
on a single drive disk io ihe ea Bae By year’s end we will have upgraded 
eur SYM/CODOS system @ Dual-8", and installed a SYM/FODS Dual-8" as 


well. We will attempt to make SYM software available on any medium used 
by a significant number of users. By next summer, if all goes according 
to schedule, your modem can talk to ours! 


We will be on sabbatical leave from California State University, Chico, 
from January through August, 1982. We plan to spend much of this time 
AiG a i aah and writing, But will be making two 4-6 week trips, one to 
Australia, New Zealand, and the Orient, the second toa Europe and the 
Middle East. The southwest Pacific trip will be during April/May, the 
Eurcpean trip has not yet been scheduled. If you are associated with an 
overseas SEAVER SHEY. or educational institution at any level, please 
write. We would like to visit, and perhaps arrange a guest lecture or 
seminar session, at na charge, except for local expenses. 


NY 11764, - 


Steve Perry, af rete Peripherals, P.G@. Box 924, Miller Place 
hat he is now set up to provide a quick turn-around 


asked us to mention 
time on SYM-1 repairs. 


&s usual, we had more material, and really quality material, submitted 
then could be published. Even if we had more space, there would not 
have been encugh time to go over the material, anyway. We will not 
publish any software, or technical articles, unless we have thoroughly 
verified he validity (or is it validated the verity?). We are quite 
proud that there have been so few typos, and only one pr oarae bug (and 
we pointed cut the existence of that bug when we published the program). 
Much of the submitted but as yet unpublished material will appear in a 
special volume next summer; so keep the material coming! 


We thank those of our readers who are helping us to review submitted 
material, especially Dick Albers, who has also provided us with a 68989 
Tiny BASIC. for the SYM-69. His version was based on an article in a 
recent issue of Dr. Dobbs” Journal. 


Issue #19 will feature BASIC (as this issue featured RAE). We will also 
review, based on hands-on testing, the SYM-2 and the recently announced 
Synertek Disk Controller Card. 


Happy SYMmering - - -« « « « = ra 


SYM-FHYSIS 9340 


